28,390
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="Connections/conn.asp" -->
<%
dim action
action = request.QueryString("action")
if action="save" then
dim sqlstmt,Rs,Conn
username = trim(request.form("xm"))
sex = trim(request.form("xb"))
useremail = trim(request.form("dzyj"))
usertel = trim(request.form("lxdh"))
useraddress = trim(request.form("lxdz"))
title = trim(request.form("title"))
addtime = trim(request.form("tjsj"))
content = trim(request.form("nr"))
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.open MM_conn_STRING
Set Rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "select * from tb_xinxiang where 1=0"
Rs.open sqlstmt,Conn,1,3
Rs.AddNew
Rs("UserName") = username
Rs("Sex") = sex
Rs("UserEmail") = useremail
Rs("UserTel") = usertel
Rs("UserAddress") = useraddress
Rs("Title") = title
Rs("AddTime") = addtime
Rs("Content") = content
Rs.Update
Rs.close
set Rs = nothing
Conn.Close
Set Conn = Nothing
response.Redirect "wyxx_success.asp"
end if
%>