?? saveinfo.asp
字號:
<%@ Language=VBScript %>
<%Response.Buffer=true%>
<html>
<head>
</head>
<body>
<OBJECT RUNAT=server PROGID=ADODB.Connection id=con1> </OBJECT>
<%
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, " ' ", " ' ' " )
END FUNCTION
con1.open (application("DBCon_ConnectionString"))
sqlstr= "insert buyinfo (cat,price,[desc],stime,email,contact,city,pname,itype) values ('"
sqlstr=sqlstr + Request.Form("cat") + "','"
sqlstr=sqlstr + Request.Form("price") +"','"
sqlstr=sqlstr + Request.Form("desc") +"',"
sqlstr=sqlstr + "getdate()" +",'"
sqlstr=sqlstr + Request.Form("email") +"','"
sqlstr=sqlstr + Request.Form("contact") +"','"
if cstr(trim(request("mjj")))="1" then
sqlstr=sqlstr + trim(request("cname")) +"','"
else
sqlstr=sqlstr + trim(request.form("cname2")) +"','"
end if
sqlstr=sqlstr + Request.Form("pname") + "','"
sqlstr=sqlstr + request("itype") + "')"
sqlstr=replace(sqlstr,vbcrlf,"<br>")
sqlstr=fixQuotes(sqlstr)
dim errcode
errcode=0
con1.Execute sqlstr,errcode
if errcode=1 then
Response.Redirect("./addsuccess.htm")
else
response.end
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -