📄 chatguestbook.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" background="../images/bg1.gif">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="48">
<tr>
<td width="352"><img src="../images/TITLE1.gif" width="360" height="67"></td>
<td width="388"> </td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="15">
<tr>
<td width="176" align="center" background="../images/coner.gif" height="19"><%=formatdatetime(now,vblongdate)%></td>
<td width="564" height="19">
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#339966">
<td width="12.5%" height="15" align="center"> <a href="../default.asp" class="link1">公司简介</a></td>
<td width="12.5%" height="15" align="center" class="link1"> <a href="../html/product/first.asp" class="link1">产品介绍</a></td>
<td width="12.5%" height="15" align="center"> <a href="../forum/default.asp" class="link1">技术论坛</a></td>
<td width="12.5%" height="15" align="center"> <a href="../html/agent.asp" class="link1">各地代理</a></td>
<td width="12.5%" height="15" align="center"> <a href="../html/service.asp" class="link1">售后服务</a></td>
<td width="12.5%" height="15" align="center"> <a href="../html/price.asp" class="link1">产品报价</a></td>
<td width="12.5%" height="15" align="center"> <a href="chatguestbook.asp" class="link1">留言板</a></td>
<td width="12.5%" height="15" align="center"> <a href="mailto:sales@tianshi.com.cn" class="link1">联系我们</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="17">
<tr>
<td width="71"> </td>
<td><a href="../default.asp">天时主页</a>>>留言板 </td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20" align="left"><img src="../images/leftcorner.gif" width="20" height="20"></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="#006600"></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="#006600"></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>
<table width="740" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" colspan="3" bgcolor="#000099"> </td>
</tr>
<tr>
<td width="66%" height="41"> <span class="link2">天时金洋电子技术有限公司</span><font color="Red">
</font>地址：北三环西路48号科技会展中心2# 1B 邮编：100086<br>
TEL：010-62583366 62628338 62564083/84 Fax：010-62588980<br>
</td>
<td width="4%" height="41" valign="middle"><img src="../images/a18.gif" width="26" height="25"></td>
<td width="30%" height="41" valign="middle" class="link1"><a href="mailto:webmaster@tianshi.com.cn" class="link2">经理部</a> <a href="mailto:webmaster@tianshi.com.cn" class="link3">webmaster@tianshi.com.cn</a><br>
<a href="mailto:webmaster@tianshi.com.cn" class="link2">销售部</a> <a href="mailto:sales@tianshi.com.cn" class="link3">sales@tianshi.com.cn</a></td>
</tr>
<tr bgcolor="#000099">
<td align="center" height="1" colspan="3"></td>
</tr>
<tr>
<td height="11" colspan="3">
<p align="center"><i><font face="Georgia, Times New Roman, Times, serif" size="1">©Copyright March
27, 2000</font></i></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -