<%
Dim conn,strcon
Set conn=Server.CreateObject("ADODB.Connection")
strcon="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/v/default/cntdb.mdb")
conn.open strcon
Pagesize=6
if request("do") = "a" and request("name_")<>"" and request("content")<>"" and request("eamil")<>"" then
content=Server.HTMLEncode(request("content"))
content=Replace(content,chr(13),"<br>")
url=request("purl")
company=request("company")
tel=request("tel")
qq=request("qq")
title=request("title")
email=request("email")
name_=request("name_")
if left(url,7)<>"http://" then url="http://" +url
sz="'"& replace(name_,"'","''")& "','" &company&"','"& tel&"','"&email&_
"','"&url&"','"&qq&"','"&title&"','"&content&"','#"&now&"#"
conn.execute("INSERT INTO gbook(name,company,tel,email,purl,qq,title,content,time) valueS("&sz&")")
end if
if request("do")="d" then '如果request("do")的值为 d 时,执行删除
conn.execute("delete * from gbook where id="&request("id"))
end if
if request("do")="c" then
if request("name_")="11111" then session("admin")="y"
end if
%>
<body>
<form action="default.asp" method="post">
留 下 您 的 笔 墨
<input name="do" type="hidden" value="a">
姓名:<input name="name_" type="text" size="12" maxlength="12">
公司:<input name="company" type="text" size="25" maxlength="25">
电话:<input name="tel" type="text" size="12" maxlength="11">
Qq:<input name="qq" type="text" size="10" maxlength="9">
公司主页: <input name="purl" type="text" size="40" maxlength="40">
邮件: <input name="email" type="text" size="30" maxlength="30">
留言主题: <input name="title" type="text" value="咨询,反馈,定单,合作[任选1项]!" size="40" maxlength="40">
内容: <textarea name="content" cols="90" rows="3"></textarea>
<input type="submit" name="Sub1" value="[ 提 + 交 + 我 + 的 + 留 + 言 ]">
</form>
<%
set rs=conn.execute("select * from gbook order by id desc")
p=request("p")
if p="" then p=1
for ii=pagesize+1 to p*pagesize
rs.movenext
next
do while not rs.eof
%>
<%response.Write rs("name")&rs("purl")&rs("tel")&rs("qq")&rs("title")&rs("time")%>
<%if session("admin")="y" then response.Write"<a href='default.asp?do=d&id="&_
rs("id")&"'>[删除]</a><a href='default.asp?do=f&id="&rs("id")&"'>[回复]</a>"%>
<font color="#FFCC00"><%=rs("content")%></font>
<%
i=i+1
if i = pagesize then exit do
rs.movenext
loop
%>
<form action="default.asp" method="post">
<%if p>1 then response.Write"<a href='default.asp?p="&p-1&"'>上一页</a>"
if not rs.eof then response.Write"<a href='default.asp?p="&p+1&"'>下一页</a>"
%>
<input name="do" value="c" type="hidden">
<input name="name_" type="password" id="psw" size="17" maxlength="16">
<input type="submit" name="Submit" value="管理 >>>">
</form>
</body>
为什么不能添加留言?什么地方错了?其他删除,回复都行...这是什么原因?
您可以到这里测试看看...测试地址:
gbook1
