📄 buyotherdo.asp
字号:
<% ModuleCode="M0910" %>
<!--#include file="../../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../../Include/connect.asp"-->
<%
UserID=session("UserID")
IP=Request.ServerVariables("REMOTE_ADDR")
ProdCode=Request.Form("ProdCode")
ProdYear=Request.Form("ProdYear")
BuyYear=Request.Form("BuyYear")
if BuyYear="" or (not IsNumeric(BuyYear)) then
Response.Write "<br><br><br><p align='center' class='titletext'>请输入购买的年限!"
Call PrintPageBottom
Response.End
end if
strUOInfo=""
if request("ST1")="4" then '推广
strUOInfo=strUOInfo&"关键词: "&request("key1")&"<br>"
strUOInfo=strUOInfo&"开户金额: "&request("key2")&"<br>"
strUOInfo=strUOInfo&"公司或网站名称: "&request("key3")&"<br>"
strUOInfo=strUOInfo&"URL 地址: "&request("key4")&"<br>"
strUOInfo=strUOInfo&"简介: "&request("key5")&"<br>"
strUOInfo=strUOInfo&"联系人姓名: "&request("key6")&"<br>"
strUOInfo=strUOInfo&"联系电话: "&request("key7")&"<br>"
strUOInfo=strUOInfo&"传真号码: "&request("key8")&"<br>"
strUOInfo=strUOInfo&"省份: "&request("key9")&"<br>"
strUOInfo=strUOInfo&"邮政编码: "&request("key10")&"<br>"
strUOInfo=strUOInfo&"通信地址: "&request("key11")&"<br>"
end if
strSQL="exec SP_BuyOtherProd " & +_
"'" & Session("UserID") & "'," & +_
"'" & ProdCode & "'," & +_
"" & ProdYear & "," & +_
"" & BuyYear & "," & +_
"'" & strUOInfo & "'," & +_
"'" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set Rs= Cn.Execute(strSQL)
%>
<br><br><br>
<p align="center" class="titletext">
<%=Rs("msg")%>
<br><br><br>
[<a href="../ProductList.asp?ServiceType=<%=request("ST1")%>" class="a2">返回</a>]
<%
Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -