新微赢技术网

标题: asp文件中的中文在dreamwaver mx 2004中显示乱码问题 [打印本页]

作者: 我為ぷぃ情醉 时间: 2010-1-9 06:37
标题: asp文件中的中文在dreamwaver mx 2004中显示乱码问题
同样的文件用frontpage2003打开就没有乱码,还有把文件名改了,也没用,从光盘上把相同的
文件复制过去,也没用,可奇怪的是,在同一个目录下,用dreamwaver打开其他的文件就不是乱码
为什么啊
我搞了一天了
还是没有解决
用dreamwaver打开光盘上相同的文件也是乱码,用frontpage打开此文件就没有了
然后我复制frontpage中的网页代码,将其复制到相同目录的以不同的文件名命名的文件,不浏览
时,没有乱码,浏览过后,在用dreamwaver打开,就用是乱码了
下面是代码,在index.asp中调用下面的文件代码
 我把文件名改为content.asp还是没用郁闷啊

程序代码：

<head>
<style>

</style>
<script language="JavaScript">
function newwin(url) {
  var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=550,height=460");
  newwin.focus();
  return false;
}
</script>
</head>
<%
Sub ShowList( rs, iPage )
  On Error Resume Next
%>
<div align="center">
  <center>
  <table border="1" width="738" bordercolor="#3399FF" cellspacing="0" cellpadding="0" height="46" bordercolorlight="#FFCCFF" bordercolordark="#CCCCFF">

<% '如果当前论坛没有数据，则插入一个空行
  If rs.EOF Then
%>
  <tr>
<td width="148" height="16" align=center class="main">没有留言数据</td>
  </tr>

<%Else%>
<%
rs.AbsolutePage = iPage
For i = 1 to rs.PageSize
   if rs.EOF Or rs.Fields("UserName") = "" then Exit For end if
%> <tr>
   <td width="148" height="16" class="main" align=center>  <br>
      <img border="0" src="images/<%=rs.Fields("Face")%>" width="100" height="100"><br>
   <%=rs.Fields("UserName")%><br><br>
      <a href="<%=rs.Fields("homepage")%>" target=_blank>
      <img border="0" src="images/homepage.gif" width="16" height="16"></a>
      <a href="mailto:<%=rs.Fields("email")%>">
      <img border="0" src="images/email.gif" width="16" height="16"></a><br>

      <% if Session("UserName") <> "" Then  %>
         <a href=newRec.asp?UpperId=<%=rs.Fields("ContId")%> target=_blank onclick="return newwin(this.href)">回复</a>
         <a href=deleteRec.asp?ContId=<%=rs.Fields("ContId")%>  target=_blank onclick="return newwin(this.href)">删除</a>
      <% end if %>
   </td>
   <td width="584" height="16" class="main" align="left" valign="top">
   <br><b>标题:<%=rs.Fields("Subject")%>     时间: <%=rs.Fields("CreateTime")%></b><hr><br>
   <%=rs.Fields("Words")%>

   <%
      '============从表Content中读取回复数据==============
      Set rs1 = Server.CreateObject("ADODB.Recordset")
      Set rs1.ActiveConnection = Conn
      rs1.CursorType = 3
      '打开记录集
      rs1.Open "SELECT * FROM Content WHERE UpperId=" & rs.Fields("ContId") & " ORDER BY CreateTime DESC"
      do while not rs1.Eof
      response.write("<BR><BR><BR>") %>   
      <img border="0" src="images/<%=rs1.Fields("Face")%>" width="50" height="50">
      <%=rs1.Fields("UserName")%>
      <a href="<%=rs1.Fields("homepage")%>" target=_blank>
      <img border="0" src="images/homepage.gif" width="16" height="16"></a>
         <a href="mailto:<%=rs1.Fields("email")%>">
      <img border="0" src="images/email.gif" width="16" height="16"></a>   
      <b>    标题:<%=rs1.Fields("Subject")%>     时间: <%=rs1.Fields("CreateTime")%></b><hr><br>
              <%=rs1.Fields("Words")%>

   <%
      rs1.movenext
      loop
   %>
   </td>
</tr>
<%
   rs.MoveNext
Next
End If
RESPONSE.Write "</table></center></div>"
End Sub

Sub ShowPage( rs, iPage )
  Response.Write("<table width=738> <tr> <td align=right class=main>")

  '显示第一页，如果当前页就是第一页，则不生成链接
  if iPage>1 then
Response.Write "<A href=index.asp?Page=1>第一页</A>  "
  else
Response.Write "第一页  "
  end if
  '显示上一页，如果不存在上一页，则不生成链接
  if iPage>1 then
Response.Write "<A href=index.asp?Page=" & (iPage-1) & ">上一页</A>  "
  else
Response.Write "上一页  "
  end if
  '显示下一页，如果不存在下一页，则不生成链接
  if iPage<>rs.PageCount Then
Response.Write "<A href=index.asp?Page=" & (iPage+1) & ">下一页</A>  "
  else
Response.Write "下一页  "
  end if
  '显示最后一页，如果当前页就是最后一页，则不生成链接
  if iPage <> rs.PageCount then
Response.Write "<A href=index.asp?Page=" & rs.PageCount & ">最后一页</A>  "
  else
Response.Write "最后一页  "
  end if

%>
<%=iPage%>/<%=rs.PageCount%></td></tr></table>
<% End Sub %>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)