asp文件中的中文在dreamwaver mx 2004中显示乱码问题
同样的文件用frontpage2003打开就没有乱码,还有把文件名改了,也没用,从光盘上把相同的文件复制过去,也没用,可奇怪的是,在同一个目录下,用dreamwaver打开其他的文件就不是乱码
为什么啊
我搞了一天了
还是没有解决
用dreamwaver打开光盘上相同的文件也是乱码,用frontpage打开此文件就没有了
然后我复制frontpage中的网页代码,将其复制到相同目录的以不同的文件名命名的文件,不浏览
时,没有乱码,浏览过后,在用dreamwaver打开,就用是乱码了
下面是代码,在index.asp中调用下面的文件代码
<!--#include file="show.asp"--> 我把文件名改为content.asp还是没用 郁闷啊
程序代码:
<head> <style> <!-- .main { font-size: 10pt } --> </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 %>