?? addad.asp
字號:
<%@ LANGUAGE="VBSCRIPT"%>
<%
function fixQuotes(theString)
fixQuotes=Replace(theString,"'","''")
end function
Set con=Server.CreateObject("ADODB.Connection")
con.Open Application("DBCon_ConnectionString")
strSql="INSERT guanggao VALUES('"+fixquotes(server.htmlencode(request.form("userid")))+"','"+fixquotes(server.htmlencode(Request.Form("country")))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("city"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("danwei"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("daili"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("connection"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("address"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("zipcode"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("telphone"))))
strSql=strSql+"','"+fixQuotes(server.htmlencode(TRIM(Request.Form("mail"))))
strSql=strSql+"','"+replace(fixQuotes(server.htmlencode(trim(Request.Form("type1")))),vbcrlf,"<br>")
strSql=strSql+"','"+Request.Form("class1")
strSql=strSql+"','"+Request.Form("class2")
strSql=strSql+"',getdate(),'0')"
insertnum=0
'response.write strsql&"<br>"
'response.end
Set rs=con.Execute(strSql,insertnum)
if insertnum=1 then
response.write "提交成功！<br>"
response.write "<a href='"&"adinput.htm"&"'> 返回提交頁面！</a>"
else
response.write "提交失?。?lt;br>"
response.wirte "<a href='"&"vbscript:history.go(-1)&"'> 返回提交頁面！</a>"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -