saveinfo.asp

来自「大家好」· ASP 代码 · 共 43 行

ASP
43 行
字号 
<%@ 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>

saveinfo.asp - 源码说明

本页面展示了「大家好」中的 saveinfo.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与家相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?