📄 bbs.asp
字号:
<html>
<head>
<SCRIPT LANGUAGE=JavaScript>
<!--
function reset_or_not()
{ confirm("真的要擦除重写吗?");}
//-->
</SCRIPT>
<style type="text/css">
<!--
body { margin-top: 0px; margin-left: 0px; margin-right:0px;}
A { COLOR: black; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: none }
A:hover { COLOR: red; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: underline }
a:active{ font: 9pt "宋体"; cursor: hand; color: #FF0033 }
TD{ FONT-SIZE: 9pt}
-->
</style>
</head>
<body bgcolor="azure" background="images/bg_quarter.gif">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40"> </td>
<td bgcolor="#e8e8ff"> 您在本站的位置:
<a href="http://why100000.at.chian.com/index.htm">主 页(十万个为什么)</a> >> 《我的留言簿》<font style="font-size:9pt"> 测试版</font>
</td>
</tr>
</table><br>
<center><font style="font-size:18pt;color:red;font-family:楷体_gb2312">我的留言簿</font>
<a href=bbs.asp>刷 新</a>
<a href=#writewords>填写留言</a></center><br>
<%
set conn=server.createObject("adodb.connection")
DBpath="DBQ=" & server.mappath("bbs.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBpath
sqlstr="select * from words order by shijian_dt desc,shijian_tm desc"
set rs=conn.execute(sqlstr)
on error resume next
rs.movefirst
do while not rs.eof
ixname=Server.HTMLEncode(rs.Fields("xname").Value)
iemail=Server.HTMLEncode(rs.Fields("email").Value)
itel=Server.HTMLEncode(rs.Fields("tel").Value)
iwap=Server.HTMLEncode(rs.Fields("wap").Value)
ibp=Server.HTMLEncode(rs.Fields("bp").Value)
icountry=Server.HTMLEncode(rs.Fields("country").Value)
iaddr=Server.HTMLEncode(rs.Fields("addr").Value)
ipostcode=Server.HTMLEncode(rs.Fields("postcode").Value)
iunit=Server.HTMLEncode(rs.Fields("unit").Value)
imysubject=Server.HTMLEncode(rs.Fields("mysubject").Value)
imywords=trim(Server.HTMLEncode(rs.Fields("mywords").Value))
ishijian=Server.HTMLEncode(rs.Fields("shijian_dt").Value+rs.Fields("shijian_tm").Value)
%>
<table border=0 align=center width=700>
<tr bgcolor=deepskyblue align=center>
<td nowrap>姓名：</td><td><%=ixname%></td>
<td nowrap>E-mail：</td><td><a href="mailto:<%=iemail%>"><%=iemail%></a></td>
<td nowrap>电话：</td><td><%=itel%></td>
</tr>
<tr bgcolor=lightgodenrod align=center>
<td nowrap>BP：</td><td><%=ibp%></td>
<td nowrap>手机：</td><td><%=iwap%></td>
<td nowrap>单位：</td><td><%=iunit%></td>
</tr>
<tr bgcolor=khaki align=center>
<td nowrap>国家：</td><td><%=icountry%></td>
<td nowrap>地址：</td><td><%=iaddr%></td>
<td nowrap>邮编：</td><td><%=ipostcode%></td>
</tr>
<tr bgcolor=plum align=center>
<td nowrap>主题:</td><td colspan=3><%=imysubject%></td><td colspan=2><%=ishijian%></td>
</tr>
<tr bgcolor=floralwhite>
<td nowrap align=center>留 言</td><td colspan=5><%=imywords%></td>
</tr>
<tr><td height=2 colspan=6></td><tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<a name="writewords"></a>
<hr width=93% color=green>
<form name=writewords action=input.asp method=post OnReset="return reset_or_not()">
<input type=hidden name=submit value=done>
<table align=center width=400>
<tr>
<td nowrap>姓名：<input name=xname onmouseover=this.focus()></td>
<td nowrap>E-mail：<input name=email value="@" onmouseover=this.focus()></td>
<td nowrap>电话：<input name=tel onmouseover=this.focus()></td>
</tr>
<tr>
<td nowrap> Bp：<input name=bp onmouseover=this.focus()></td>
<td nowrap> 手机：<input name=wap onmouseover=this.focus()></td>
<td nowrap>单位：<input name=unit onmouseover=this.focus()></td>
</tr>
<tr>
<td>国家：<select name="country" size="1" style="background-color:azure">
<option selected>中国</option>
<option>中国香港</option>
<option>中国澳门</option>
<option>America</option>
<option>Taiwan zone</option>
</select>
</td>
<td nowrap> 地址：<input name=addr onmouseover=this.focus()></td>
<td nowrap>邮编：<input name=postcode onmouseover=this.focus()></td>
</tr>
<tr><td nowrap colspan=3> 主 题: <input name=mysubject size=50 value="我想说:" onfocus=this.select() onmouseover=this.focus()></td></tr>
<tr><td nowrap colspan=3> 留 言:<br>
<textarea name=mywords rows=5 cols=50 onmouseover=this.focus()></textarea>
</td></tr>
</table>
<center><input type=submit value="发 送">
<input type=reset value="重新填写"></center>
</form>
<br>
<!--底部标签-->
<table border=0 align="center" cellspacing=2 cellpadding=2>
<tr align=center>
<td colspan=2>
<a href="javascript:close()">
<img src=images/door1.gif border=0 width=30 height=30 align=middle>关闭“留言簿”窗口
</a>
</td>
</tr>
<tr align=center>
<td>
Copyright(C) By ZhangQing 张庆 O'ICQ:9365822<br><br>
站长邮箱：<a href=mailto:zhangking@263.net?subject=给张庆的信>zhangking@263.net</a> Bp:029-95808 呼 822686</td>
<td valign="bottom">
<a href="http://why100000.at.china.com/index.htm">
<img src="images/go_home.gif" border="0" width="35" height="70" alt="返回本站首页">
</a>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -