%@LANGUAGE="VBSCRIPT"%>
|
|
<% select case id case "" %> ![]()
<% case "1" %> <% set rs=server.createobject("adodb.recordset") sql="select * from lyb" rs.open sql,conn,3,2 rs.addnew rs("ip")=request.ServerVariables("REMOTE_ADDR") rs("time")=CSTR(NOW()+TIME_ADJUST/24) rs("name")=trim(request.form("name")) rs("netname")=trim(request.form("netname")) rs("email")=trim(request.form("email")) rs("add")=trim(request.form("add")) rs("oicq")=trim(request.form("oicq")) rs("tel")=trim(request.form("tel")) rs("text")=trim(request.form("text")) rs("body")=trim(request.form("body")) rs.update rs.close set rs=nothing response.write " " conn.close set conn=nothing %> <% end select %> |