?? add_member.asp
字號(hào):
<%@ Language=VBScript %>
<%
function fixQuotes(theString)
fixQuotes=Replace(theString,"'","''")
end function
DIM username,password
On Error Goto 0
username=Session("username")
Set con=Server.CreateObject("ADODB.Connection")
con.Open Application("DBCon_ConnectionString")
strSql="INSERT yonghu VALUES('"+username+"','"+Request.Form("password")
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("danwei")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("guojia")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("chengshi")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("dizhi")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("youbian")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("lianxiren")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("dianhua")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("e_mail")))
strSql=strSql+"','"+fixQuotes(TRIM(Request.Form("zhyue")))
strSql=strSql+"',getdate()"
strSql=strSql+",0)"
insertnum=0
Set rs=con.Execute(strSql,insertnum)
if insertnum=1 then
'成功
'修改有效值
response.redirect "../syspages/sys_regsuc.htm"
else
response.redirect "../syspages/error.htm"
end if
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -