📄 default.asp
字号:
<%Response.Expires=0
dim input()
id=Request.QueryString("id")
if id=Vbempty then id=1
lyfile = server.mappath("ly.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(lyfile,1,False)
counter = 0
do while not thisfile.AtEndOfStream
thisline = thisfile.readline
Redim preserve input(counter)
input(counter) = thisline
counter = counter + 1
loop
thisfile.Close
lynumber=(counter-1)/7%>
<html>
<head>
<title>留言板</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.link1 { color: #FFFFFF}
.link2 { color: #FF0000}
.link3 { color: #006600}
.big1 { font-size: 14px; text-align: justify; vertical-align: 1%; line-height: 18px}
.title { font-size: 14px; background-color: #CCFFCC; font-weight: bold}
.botton { color: #000066; background-color: #FFCC99; font-size: 12px; cursor: hand;}
-->
</style>
<link rel="stylesheet" href="3508.css">
</head>
<body bgcolor="#FFFFdf" >
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="1" bgcolor="006600"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="17">
<tr>
<td width="487"> </td>
<td align="right" width="253">主页>>留言板 </td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20" align="left"> </td>
<td width="720" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="97%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#ff6600"></td>
</tr>
<tr>
<td height="19"> </td>
</tr>
</table>
</td>
<td width="3%"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top" width="1" bgcolor="#ff6600"></td>
<td valign="top" width="739">
<br>
<table width="580" border="0" align="center" cellspacing="0" cellpadding="10">
<tr align="center">
<td><%
if lynumber>15 then
page=0
for i=1 to lynumber step 15
page=page+1
Response.Write "<a href='chatguestbook.asp?id=" & i &"'>[" & page &"]</a> "
next
end if%> <a href="guestadd.htm">
<p>[书写留言]
</a>
<hr>
</td>
</tr>
<tr>
<td align="left"><%for i=id to id+14
if i>lynumber then exit for
Response.Write input((i-1)*7+1) & "<p>"
if input((i-1)*7+3)<>"0" then
Response.Write "<font color=#006600>姓名：</font><a href=mailto:" & input((i-1)*7+3) & ">" & input((i-1)*7+2) & "</a><br>"
else
Response.Write "<font color=#006600>姓名：</font>" & input((i-1)*7+2) & "<br>"
end if
Response.Write "<font color=#006600>时间：</font>" & input((i-1)*7+4) & "<br>"
if input((i-1)*7+5)<>"0" then Response.Write "<font color=#006600>来自：</font>" & input((i-1)*7+5) & "<br>"
if input((i-1)*7+7)<>"0" then
if input((i-1)*7+6)<>"0" then
Response.Write "<font color=#006600>主页：</font><a href=" & input((i-1)*7+7) & " target=_blank>" & input((i-1)*7+6) & "</a>"
else
Response.Write "<font color=#006600>主页：</font><a href=" & input((i-1)*7+7) & " target=_blank>" & input((i-1)*7+7) & "</a>"
end if
end if
Response.Write "<hr color=#0000CC noshade size=1>"
next%> </td>
</tr>
<tr align="center">
<td><%
if lynumber>15 then
page=0
for i=1 to lynumber step 15
page=page+1
Response.Write "<a href='chatguestbook.asp?id=" & i &"'>[" & page &"]</a> "
next
end if%> <br>
<a href="guestadd.htm">[书写留言]</a> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -