| <%
if Request.Form("txtLinkman")<>"" then
DbPath = SERVER.MapPath("bbs.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.mode=adModeReadWrite
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
title=Request.form("txtTitle")'标题
if Request.form("txtLinkman")="" then
linkman="无"
else
linkman=Request.form("txtLinkman")
end if
if Request.form("txtAdr")="" then
adr="无"
else
adr=Request.Form("txtadr")
end if
if Request.Form("txtMail")="" then
mail=" "
else
mail=Request.Form("txtmail")
end if
content=Request.form("txtcontent")
date1=date()
sql="insert into bbs(Title,shijian,LinkMan,adr,mail,Content) values('"&title&"','"&date1&"','"&Linkman&"','"&adr&"','"&mail&"','"&content&"')"
set rs=conn.Execute(sql)
end if
DbPath = SERVER.MapPath("bbs.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.mode=adModeReadWrite
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select * from bbs order by shijian desc"
set rs=conn.Execute(sql,intrecs,adcmdtext)
session("cou")=intrecs %>
《——————————留言区——————————》
|
<%flag=0
dim i
i=0
do while not rs.eof
i=i+1
rs.movenext
loop
session("cou")=i
if rs.eof<>rs.bof then
rs.movefirst
end if
do while not rs.eof
flag=flag+1
if flag>5 then
exit do
end if
%>
| 标题：<%=rs(0) %> |
| 时间：<%Response.write formatdatetime(rs(1),vblongdate) %> |
发言人：<% =rs(2) %> |
| 联系方式：<%=rs(3)%> |
电子邮件：<%=rs(4)%> |
| 留言 |
|
| <%=rs(5)%> |
|
<% rs.movenext
loop
%>
|
|
【开版声明】
|
| 亲爱的用户：你好！ |
| 《留言簿》是本公司为了增进您与公司之间的关系，特别开设的一个栏目。如果您在日常使用本公司的产品时，遇到什么问题，请您在留言簿中留言。本公司将以最快的速度给予您满意的答复。 |
|
当然，如果您有什么样好的建议和意见，同样欢迎您留言。我们将不胜感激！
|
| |
|
【使用说明】
|
| 1、如果您有什么问题，请您按要求填写相应内容。注意：打*号的为必添项。 |
| 2、如果您想回复某个问题，请您在标题中注名相关的主题。例如：在标题中写明“我将回复网管的问题”等字样。 |
| 3、如果您在使用中遇到问题，请您即使和我们联系。我们将以最快的速度，给予您答复。 |
| |
| 郑重声名：禁止发布违反国家有关法律,法规的信息！ |
| |
|
【信息发布】
|
|
|
|
