![]() |
#2
zmhdxy2008-03-06 21:23
上面的是frontpage中的 下面是dreamwaver中的
![]() <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 %> [[it] 本帖最后由 zmhdxy 于 2008-3-6 21:26 编辑 [/it]] |
文件复制过去,也没用,可奇怪的是,在同一个目录下,用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 %>
<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 %>