简单留言板代码
说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。
09</word><word ps='' class=''>计算机</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 %> |