【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《简单留言板代码》，欢迎阅读！
09</word><word ps='' class=''><a href='https://www.wddqxz.cn/list-63.html' target='_blank'>计算机</a></word><word ps='' class=''>
09
计算机留言板
历史留言 <%
set conn=server.createobject("adodb.connection")
conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wang.mdb") if request("task")="insert" then xm=request("xm") sj=date()
sj=sj&" "&hour(time())& ":"&minute(time()) if request("lyq")=" "then
response.write("留言不能为空！") response.end else
ly=request("lyq") end if
sqlstr="insert into wang (姓名,时间,留言)values('" & xm &"',# " & sj &"#,'"& ly &"')" conn.execute sqlstr end if
sqlstr="select * from wang order by 时间 DESC" set rs=conn.execute(sqlstr) do while not rs.eof %>
姓 名:<%=rs("姓名")%> |
留言时间:<%=rs("时间")%> |
留言内容:<%=rs("留言")%> |
<% rs.movenext loop rs.close conn.close
set conn=nothing %> |