| <%
if request.Form("b1")="提交" then
dim xingming,zhuti,shijian,neirong
xingming=request.Form("xingming")
zhuti=request.Form("zhuti")
neirong=request.Form("neirong")
shijian=now
ip=request.ServerVariables("REMOTE_ADDR")
'dim sql,rs
sql="select * from liuyan"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,3
rs.addnew
rs("xingming")=xingming
rs("zhuti")=zhuti
rs("neirong")=neirong
rs("shijian")=shijian
rs("ip")=ip
rs("shenhe")=true
rs.update
rs.close
set rs=nothing
%>
<%
else
%>
<%end if %> |
| |
|
