ASP留言板（在一页里实现所有功能）

最新推荐文章于 2022-03-21 21:41:47 发布

ajyqkv1186

最新推荐文章于 2022-03-21 21:41:47 发布

阅读量260

点赞数

原文链接：http://www.cnblogs.com/aowind/archive/2005/07/14/192534.html

版权

很久没发贴了，因为这些时间又在做ＡＳＰ的页面，没用dotnet，有时真有点过意不去了。唉！中国现状呀！
发一个ＡＳＰ留言板，当资料存着，自己写的，很简单。把留言功能，删除功能，回复留言功能都写到一个页面里的，用的ＡＣＣＥＳＳ数据库，数据库结构直接看源代码出能分板出来了。

< % dim newConn,pwd,pagenum

pwd = " aowind"

pagenum = 5

set newconn = Server. CreateObject ( " ADODB.Connection " )

dbpath = server.mappath( " data/langzhong.mdb " )

newconn.open = " provider=microsoft.jet.oledb.4.0; data source = " & dbpath % >

< %

dim t_pwd,t_id,t_answer

t_pwd = request( " pwd " )

t_id = request( " id " )

t_answer = request( " answer " )

if t_id <> "" and t_pwd = pwd and t_answer = "" then

sqlcmd = " delete from guest where id= " & t_id & " "

newconn. execute sqlcmd

end if

if t_id <> "" and t_pwd = pwd and t_answer <> "" then

set rs = Server. CreateObject ( " ADODB.recordset " )

sqlcmd = " select * from guest where id= " & t_id

rs.open sqlcmd, newconn, 3 , 2

rs( " answer " ) = t_answer

rs.update

rs.close

end if

% >

< %

dim t_name,t_form,t_email,t_cont,t_ip,t_attime,t_qq,t_teleno

t_qq = request( " qq " )

t_teleno = request( " teleno " )

if t_teleno = "" then t_teleno = " "

t_name = request( " name " )

t_form = request( " form " )

if t_form = "" then t_form = " "

t_email = request( " email " )

if t_email = "" then t_email = " "

t_cont = Server.HTMLEncode(request( " cont " ))

t_ip = request.servervariables( " Remote_addr " )

t_attime = cstr ( year ( now )) & " / " & cstr ( month ( now )) & " / " & cstr ( day ( now )) & " - " & cstr ( hour ( now )) & " : " & cstr ( minute ( now )) & " : " & cstr ( second ( now ))

if t_name <> "" and t_cont <> "" and t_qq <> "" then

sqlcmd = " insert Into guest(name,qq,teleno,form,email,cont,ip,attime) values (' " & t_name & " ',' " & t_qq & " ',' " & t_teleno & " ',' " & t_form & " ',' " & t_email & " ',' " & t_cont & " ',' " & t_ip & " ',' " & t_attime & " ')"

newconn. Execute sqlcmd

end if

% >

< HTML >

< HEAD >

< meta http - equiv = " Content-Language " content = " zh-cn " >

< TITLE > langzhong.com.cn 阆中＝朗忠服务器虚拟主机网站推广网站制作合租计划服务器直销 </ TITLE >

< META HTTP - EQUIV = " Content-Type " CONTENT = " text/html; charset=gb2312 " >

< style >

< ! --

td { font - size: 9pt }

table {WORD - BREAK: break - all;}

-->

</ style >

</ HEAD >

< BODY BGCOLOR = #C0C0C0 LEFTMARGIN = 0 TOPMARGIN = 0 MARGINWIDTH = 0 MARGINHEIGHT = 0 >

< div align = " center " >

< center >

< table border = " 0 " cellpadding = " 0 " cellspacing = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " id = " AutoNumber1 " >

< tr >

< td width = " 100% " style = " border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1 " >

< TABLE WIDTH = 459 BORDER = 0 CELLPADDING = 0 CELLSPACING = 0 height = " 1316 " >

< TR >

< TD ROWSPAN = 2 width = " 171 " height = " 204 " >

< IMG SRC = " images/guest_1.gif " ALT = "" width = " 171 " height = " 204 " ></ TD >

< TD width = " 429 " height = " 57 " >

< a href = " index.html " >

< IMG SRC = " images/money_2.gif " border = " 0 " width = " 429 " height = " 57 " ></ a ></ TD >

< TD width = " 1 " height = " 57 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 57 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 429 " background = " images/guest_3.gif " height = " 147 " >

　 </ TD >

< TD width = " 1 " height = " 147 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 147 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 84 " >

< IMG SRC = " images/guest_4.gif " ALT = "" width = " 171 " height = " 84 " ></ TD >

< TD ROWSPAN = 2 width = " 429 " height = " 118 " >

< IMG SRC = " images/guest_5.gif " ALT = "" width = " 429 " height = " 118 " ></ TD >

< TD width = " 1 " height = " 84 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 84 ALT = "" ></ TD >

</ TR >

< TR >

< TD ROWSPAN = 2 width = " 171 " height = " 68 " >

< IMG SRC = " images/guest_6.gif " ALT = "" width = " 171 " height = " 68 " ></ TD >

< TD width = " 1 " height = " 34 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 34 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 429 " height = " 34 " >

< IMG SRC = " images/guest_7.gif " ALT = "" width = " 429 " height = " 34 " ></ TD >

< TD width = " 1 " height = " 34 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 34 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 45 " >

< a href = " tuoguan.html " >

< IMG SRC = " images/index_10.gif " border = " 0 " width = " 171 " height = " 45 " ></ a ></ TD >

< TD ROWSPAN = 10 width = " 429 " background = " images/guest_9.gif " align = " center " valign = " top " height = " 960 " >

< table border = " 0 " cellpadding = " 0 " cellspacing = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " width = " 95% " id = " AutoNumber2 " >

< tr >

< td width = " 100% " > 　

< %

if request.querystring( " del " ) <> "" then

t_id = request.querystring( " del " )

% >

< div align = " center " >

< center >

< table width = " 90% " border = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " cellpadding = " 0 " cellspacing = " 0 " >

< tr >

< td >

< form name = " form2 " method = " post " action = " guest.asp " >

请输入管理员密码：

< input name = " pwd " type = " text " id = " pwd " size = " 20 " >

< input type = " hidden " name = " id " value = " <% =t_id %> " >

< input type = " submit " name = " Submit " value = " 提交 " >

</ form ></ td >

</ tr >

</ table >

</ center >

</ div >

< % else

if request.querystring( " id " ) <> "" then

t_id = request.querystring( " id " )

% >

< div align = " center " >

< center >

< table width = " 90% " border = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " cellpadding = " 0 " cellspacing = " 0 " >

< tr >

< td >

< form name = " form2 " method = " post " action = " guest.asp " >

输入答复：

< textarea name = " answer " cols = " 40 " id = " answer " rows = " 1 " > 必须输入，否则会删除此留言 </ textarea >

< br >

请输入管理员密码：

< input name = " pwd " type = " text " id = " pwd " size = " 20 " >

< input type = " hidden " name = " id " value = " <% =t_id %> " >

< input type = " submit " name = " Submit " value = " 提交 " >

</ form ></ td >

</ tr >

</ table >

</ center >

</ div >

< % else % >

< % set rs = Server. CreateObject ( " ADODB.recordset " )

sqlcmd = " select * from guest order by id desc"

rs.open sqlcmd, newconn, 1 , 1

rs.pagesize = pagenum

if request.querystring( " page " ) <> "" then

page = Clng (request.querystring( " page " ))

end if

if page < 0 then

page = 0

else

if page => rs.pagecount then

page = rs.pagecount - 1

end if

u = page + 1

t = page * pagenum

f = T + pagenum

if t <> 0 then

for i = 1 to t

rs.movenext

end if

% >

< %

for i = 1 to pagenum

% >

< div align = " center " >

< center >

< table width = " 90% " height = " 169 " border = " 0 " cellpadding = " 0 " cellspacing = " 0 " bordercolor = " #999999 " style = " border-collapse: collapse " >

< tr align = " right " >

< td height = " 25 " colspan = " 2 " bgcolor = " #000000 " >< a href = " guest.asp?id=<%=rs( " id " )%> " >< font color = " #FFFFFF " > 答复 </ font ></ a >

& nbsp; & nbsp; & nbsp; & nbsp; < a href = " guest.asp?del=<%=rs( " id " )%> " >< font color = " #FFFFFF " > 删除 </ font ></ a >& nbsp; & nbsp; & nbsp; & nbsp; </ td >

</ tr >

< tr >

< td width = " 27% " height = " 89 " align = " center " valign = " top " bgcolor = " #CCCCCC " >

< table border = " 0 " cellpadding = " 0 " cellspacing = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " width = " 100% " id = " AutoNumber3 " >

< tr >

< td width = " 100% " height = " 25 " >& nbsp;姓名： < % = rs( " name " )% ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " >& nbsp;QQ： < % = rs( " qq " )% ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " >& nbsp;电话： < % = rs( " teleno " )% ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " >& nbsp;来自： < % = rs( " form " )% ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " >& nbsp;Email： < % = rs( " email " )% ></ td >

</ tr >

</ table >

</ td >

< td width = " 73% " >< % = Server.HTMLEncode(rs( " cont " ))% ></ td >

</ tr >

< tr >

< td height = " 24 " colspan = " 2 " >& nbsp; & nbsp; & nbsp; & nbsp;IP: < % = rs( " ip " )% >& nbsp; & nbsp;留言时间： < % = rs( " attime " )% ></ td >

</ tr >

< % if rs( " answer " ) <> "" then % >

< tr >

< td height = " 24 " colspan = " 2 " >& nbsp; & nbsp; & nbsp; & nbsp;站长回答： < br >

& nbsp; & nbsp; & nbsp; & nbsp; < % = rs( " answer " )% ></ td >

</ tr >

< % end if % >

</ table >

</ center >

</ div >

< br >

< %

rs.movenext

if rs.eof then exit for

next % >

< table width = " 100% " border = " 0 " cellpadding = " 0 " cellspacing = " 0 " height = " 20 " >

< tr >

< td align = " center " > 共 < % = rs.recordcount % > 条留言每页 < % = pagenum% > 条第

< % = u % >

< % = rs.pagecount % >

页 < a href = " guest.asp?page=0 " > 首页 </ a > < a href = " guest.asp?page=<%=(page-1)%> " > 上一页 </ a >

< a href = " guest.asp?page=<%=(page+1)%> " > 下一页 </ a > < a href = " guest.asp?page=<% =rs.pagecount-1 %> " > 尾页 </ a ></ td >

</ tr >

</ table >

< %

rs.close

% >< form name = " form1 " method = " post " action = " guest.asp " >

< p align = " center " >< font color = " #FF0000 " >*</ font > 号为必填项，否则不能提交成功 </ p >

< div align = " center " >

< center >

< table width = " 90% " height = " 321 " border = " 0 " cellpadding = " 0 " cellspacing = " 0 " bordercolor = " #000000 " style = " border-collapse: collapse " >

< tr >

< td width = " 19% " height = " 25 " align = " center " bgcolor = " #CCCCCC " > 姓名： </ td >

< td width = " 81% " >

< input name = " name " type = " text " id = " name " size = " 20 " >

< font color = " #FF0000 " >*</ font ></ td >

</ tr >

< tr >

< td height = " 25 " align = " center " bgcolor = " #CCCCCC " > QQ： </ td >

< td >< input name = " qq " type = " text " id = " qq " size = " 20 " >

< font color = " #FF0000 " >*</ font ></ td >

</ tr >

< tr >

< td height = " 25 " align = " center " bgcolor = " #CCCCCC " > 联系电话： </ td >

< td >

< input name = " teleno " type = " text " id = " teleno " size = " 20 " ></ td >

</ tr >

< tr >

< td height = " 25 " align = " center " bgcolor = " #CCCCCC " > 来自： </ td >

< td >< input name = " form " type = " text " id = " form " size = " 20 " > </ td >

</ tr >

< tr >

< td height = " 26 " align = " center " bgcolor = " #CCCCCC " > Email： </ td >

< td >< input name = " email " type = " text " id = " email " size = " 20 " > </ td >

</ tr >

< tr >

< td height = " 154 " align = " center " bgcolor = " #CCCCCC " > 内容： </ td >

< td >< textarea name = " cont " cols = " 40 " rows = " 8 " id = " name4 " ></ textarea >

< font color = " #FF0000 " >*</ font ></ td >

</ tr >

< tr align = " center " >

< td height = " 30 " colspan = " 2 " >< input type = " submit " name = " Submit3 " value = " 提交 " ></ td >

</ tr >

</ table >

</ center >

</ div >

</ form >

< % end if

end if % >

< %

newconn.close

% >

</ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " align = " center " > < font color = " #000000 " > 相关证书及授权印件： </ font >< a href = " tup/021icp.jpg " style = " text-decoration: none " >< font color = " #FF0000 " > ICP证书 </ font ></ a >< font color = " #FF0000 " >& nbsp;

</ font > < a href = " tup/sq.jpg " style = " text-decoration: none " >< font color = " #FF0000 " > 申网授权 </ font ></ a >< font color = " #FF0000 " >& nbsp;

</ font > < a href = " tup/sy1.jpg " style = " text-decoration: none " >< font color = " #FF0000 " > 企业会员证 </ font ></ a >< font color = " #FF0000 " >& nbsp;

</ font > < a href = " tup/yyzz.jpg " style = " text-decoration: none " >< font color = " #FF0000 " > 营业执照 </ font ></ a >< font color = " #FF0000 " >

< a href = " icp.html " style = " text-decoration: none " > < font color = " #FF0000 " > ICP备案 </ font ></ a ></ font ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " align = " center " > < a href = " aboutus.html " style = " text-decoration: none " >

< font color = " #000000 " > About us </ font ></ a > | < a href = " money.html " style = " TEXT-DECORATION: none " >

< font color = " #000000 " > 如何交费 </ font ></ a > | < a href = " http://bbs.langzhong.com.cn/User/UserJoin.asp " style = " TEXT-DECORATION: none " >

< font color = " #000000 " > 网站论坛 </ font ></ a > | < font color = " #111111 " >

< a href = " http://shop33102053.taobao.com/ " style = " text-decoration: none " >

< font color = " #000000 " > 朗忠淘宝店 </ font ></ a ></ font > | < a href = " dl.htm " style = " text-decoration: none " >

< font color = " #000000 " > 代理加盟 </ font ></ a > | < a href = " other.html " style = " text-decoration: none " >

< font color = " #000000 " > 其它业务 </ font ></ a ></ td >

</ tr >

< tr >

< td width = " 100% " height = " 25 " align = " center " > < font face = " 宋体 " color = " #000000 " > 服务器租用QQ即时交谈　租用客服1号 </ font >< font face = " 宋体 " color = " #4A4A4A " >< a target = " blank " href = " http://wpa.qq.com/msgrd?V=1&Uin=415846053&Site=www.langzhong.com.cn&Menu=yes " >< font color = " #000000 " >< img border = " 0 " SRC = http: // wpa.qq.com / pa?p = 1 : 415846053 : 5 alt = " 点击这里给我发消息 " ></ font ></ a ></ font >< font face = " 宋体 " color = " #000000 " >

租用客服2号 </ font >< font face = " 宋体 " color = " #4A4A4A " >< a target = blank href = http: // wpa.qq.com / msgrd?V = 1 & Uin = 6235700 & Site = www.langzhong.com.cn & Menu = yes >< font color = " #000000 " >< img border = " 0 " SRC = http: // wpa.qq.com / pa?p = 1 : 6235700 : 5 alt = " 点击这里给我发消息 " ></ font ></ a ></ font ></ td >

</ tr >

</ table >

</ TD >

< TD width = " 1 " height = " 45 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 45 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 41 " >

< a href = " idc.html " >

< IMG SRC = " images/index_11.gif " border = " 0 " width = " 171 " height = " 41 " ></ a ></ TD >

< TD width = " 1 " height = " 41 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 41 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 42 " >

< a href = " domain.html " >

< IMG SRC = " images/index_12.gif " border = " 0 " width = " 171 " height = " 42 " ></ a ></ TD >

< TD width = " 1 " height = " 42 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 42 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 42 " >

< a href = " hezu.html " >< img border = " 0 " src = " images/idc_12.gif " width = " 171 " height = " 42 " ></ a ></ TD >

< TD width = " 1 " height = " 42 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 41 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 41 " >

< a href = " webhosting.html " >

< IMG SRC = " images/index_15.gif " border = " 0 " width = " 171 " height = " 41 " ></ a ></ TD >

< TD width = " 1 " height = " 41 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 41 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 40 " >

< a href = " search.html " >

< IMG SRC = " images/index_18.gif " border = " 0 " width = " 171 " height = " 40 " ></ a ></ TD >

< TD width = " 1 " height = " 40 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 40 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 41 " >

< a href = " webdesign.html " >

< IMG SRC = " images/money_14.gif " border = " 0 " width = " 171 " height = " 41 " ></ a ></ TD >

< TD width = " 1 " height = " 41 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 41 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 47 " >

< a href = " money.html " >

< IMG SRC = " images/index_20.gif " border = " 0 " width = " 171 " height = " 47 " ></ a ></ TD >

< TD width = " 1 " height = " 47 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 47 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " height = " 23 " >

< IMG SRC = " images/guest_17.gif " ALT = "" width = " 171 " height = " 23 " ></ TD >

< TD width = " 1 " height = " 23 " >

< IMG SRC = " images/spacer.gif " WIDTH = 1 HEIGHT = 23 ALT = "" ></ TD >

</ TR >

< TR >

< TD width = " 171 " background = " images/guest_18.gif " align = " center " valign = " top " height = " 598 " >

< div align = " center " >

< center >< form action = http: // bbs.langzhong.com.cn / User / login.asp method = " post " >

< table border = " 0 " cellpadding = " 0 " cellspacing = " 0 " style = " border-collapse: collapse " bordercolor = " #111111 " width = " 94% " id = " AutoNumber2 " height = " 139 " >

< tr >

< td width = " 35% " height = " 25 " > 用户名: </ td >

< td width = " 65% " height = " 25 " align = " center " >

< input name = user type = text maxlength = 20 size = 12 value = "" class = fminpt ></ td >

</ tr >

< tr >

< td width = " 35% " height = " 25 " > 密 & nbsp; 码: </ td >

< td width = " 65% " height = " 25 " align = " center " >

< input name = pass type = password maxlength = 20 size = 12 value = "" class = fminpt ></ td >

</ tr >

< tr >

< td width = " 100% " colspan = " 2 " height = " 25 " > 有效期: < Select name = CkiExp >

< option value = " -1 " > 无效

< option value = " 365 " > 一年

< option value = 1 > 一天

< option value = 2 > 两天

< option value = 7 > 一周

< option value = 31 > 一月

</ select >& nbsp; & nbsp;

< input name = submitflag type = hidden value = " ddddls-+++ " >

< input type = submit value = " 登录 " class = fmbtn style = " background-color: #FFFFFF " ></ td >

</ tr >

< tr >

< td width = " 100% " colspan = " 2 " height = " 25 " > [ < a href = .. / User / UserGetPass.asp >< font color = " #4A4A4A " > 忘记密码了 </ font ></ a > ]　[ < a href = .. / User / UserJoin.asp >< font color = " #4A4A4A " > 新用户注册 </ font ></ a > ] </ td >

</ tr >

< tr >

< td width = " 100% " colspan = " 2 " height = " 3 " background = " s_8.gif " ></ td >

</ tr >

< tr >

< td width = " 100% " colspan = " 2 " height = " 22 " >

< p align = " center " >< a href = " http://www.021online.com " >

< img border = " 0 " src = " http://www.021online.net/photo/mark.gif " width = " 120 " height = " 35 " ></ a >

</ td >

</ tr >

< tr >

< td width = " 100% " colspan = " 2 " height = " 22 " align = " center " >

< a href = " http://app.shca.gov.cn/enterprise/jsp/special/shca.gov.cn/IcpInfos.jsp?recordsn=1113 " target = " _blank " style = " font-size: 12px; color: #4a4a4a; text-decoration: none " >

沪ICP：B2 - 20040587 </ a >

</ td >

</ tr >

< tr >