buyotherdo.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 58 行

<% 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

%>