📄 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 align="center">
<td colspan="2"><img src="../images/headcom.gif" width="720" height="76"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="23">
<tr align="center">
<td width="215"> </td>
<td width="525">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="23" background="../images/botton.gif">
<tr align="center">
<td width="75"><a href="../html/company.htm" class="link3">公司简介</a></td>
<td width="75"><a href="../html/product.htm" class="link3">产品指南</a></td>
<td width="75"><a href="../html/hand.htm" class="link3">服务手册</a></td>
<td width="75"><a href="../html/thesystem.htm" class="link3">诚邀加盟</a></td>
<td width="75"><a href="../forum/default.asp" class="link3">技术论坛</a></td>
<td width="75"><a href="chatguestbook.asp" class="link3">客户留言</a></td>
<td width="75"><a href="../html/agent.htm" class="link3">联系我们</a></td>
</tr>
</table>
</td>
</tr>
</table>
<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"><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" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="3" height="1" bgcolor="000066"></td>
</tr>
<tr>
<td width="525"><span class="link1"><span class="link2">中国特路普科技有限公司</span></span><span class="link3"> </span> 地址：北京市西城区复兴门金融街奔德金融会所四楼<br>
TEL：(010)66012089 66012090 FAX：(010)66012087 邮编：100032</td>
<td width="25"><img src="../images/a18.gif" width="26" height="25"></td>
<td width="200"><a href="mailto:sales@twoloop.com.cn" class="link3">市场部：sales@twoloop.com.cn</a><br>
<a href="mailto:webmaster@twoloop.com.cn" class="link3">经理部：webmaster@twoloop.com.cn</a>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="000066"></td>
</tr>
<tr align="center">
<td colspan="3">
<p align="center"><i><font face="Georgia, Times New Roman, Times, serif" size="1">©CopyRight April
16, 2000</font></i></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -