buyre.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0910" %>
<!--#include file="../../../Include/connect.asp"-->
<!--#include file="../../../Include/Security.asp"-->
<%

PType=Request.Form("PType")

if IsNULL(session("P_DSM")) or session("P_DSM")="" or IsNULL(session("P_ID")) or session("P_ID")="" then
	strRedirect="../../../include/error.asp"
else
	 strSQL="Exec SP_CurBuy " & +_
	 "'" & session("P_ID") & "'," & +_
	 "'" & PType & "'," & +_  
	 "'" & PType & "'," & +_
	 "'" & "" & "'," & +_
	 "" & Session("UserID") & "," & +_
	 "'" & "" & "'," & +_
	 "" & "0" & "," & +_
	 "" & "0" & "," & +_

	 "'" & request("domain") & "'," & +_
	 "'" & request("domaintail") & "'," & +_
	 "'" & request("dns1") & "'," & +_
	 "'" & request("dns2") & "'," & +_
	 "'" & request("domaintype") & "'," & +_
	 "'" & request("pwd1") & "'," & +_

	 "'" & request("app") & "'," & +_
	 "'" & request("nex") & "'," & +_

	 "'" & Request.Form("manager") & "'," & +_
	 "'" & Request.Form("industry") & "'," & +_

	 "'" & Request.Form("reg_name") & "'," & +_
	 "'" & Request.Form("reg_name") & "'," & +_
	 "'" & Request.Form("reg_org") & "'," & +_
	 "'" & Request.Form("reg_org") & "'," & +_
	 "'" & Request.Form("reg_country") & "'," & +_
	 "'" & Request.Form("reg_country") & "'," & +_
	 "'" & Request.Form("reg_state") & "'," & +_
	 "'" & Request.Form("reg_city") & "'," & +_
	 "'" & Request.Form("reg_street1") & "'," & +_
	 "'" & Request.Form("reg_street2") & "'," & +_
	 "'" & Request.Form("reg_pc") & "'," & +_
	 "'" & Request.Form("reg_tel") & "'," & +_
	 "'" & Request.Form("reg_fax") & "'," & +_
	 "'" & Request.Form("reg_email") & "'," & +_
	 
	 "'" & Request.Form("admin_name") & "'," & +_
	 "'" & Request.Form("admin_name") & "'," & +_
	 "'" & Request.Form("admin_org") & "'," & +_
	 "'" & Request.Form("admin_org") & "'," & +_
	 "'" & Request.Form("admin_country") & "'," & +_
	 "'" & Request.Form("admin_country") & "'," & +_
	 "'" & Request.Form("admin_state") & "'," & +_
	 "'" & Request.Form("admin_city") & "'," & +_
	 "'" & Request.Form("admin_street1") & "'," & +_
	 "'" & Request.Form("admin_street2") & "'," & +_
	 "'" & Request.Form("admin_pc") & "'," & +_
	 "'" & Request.Form("admin_tel") & "'," & +_
	 "'" & Request.Form("admin_fax") & "'," & +_
	 "'" & Request.Form("admin_email") & "'," & +_
	 
	 "'" & Request.Form("tel_name") & "'," & +_
	 "'" & Request.Form("tel_name") & "'," & +_
	 "'" & Request.Form("tel_org") & "'," & +_
	 "'" & Request.Form("tel_org") & "'," & +_
	 "'" & Request.Form("tel_country") & "'," & +_
	 "'" & Request.Form("tel_country") & "'," & +_
	 "'" & Request.Form("tel_state") & "'," & +_
	 "'" & Request.Form("tel_city") & "'," & +_
	 "'" & Request.Form("tel_street1") & "'," & +_
	 "'" & Request.Form("tel_street2") & "'," & +_
	 "'" & Request.Form("tel_pc") & "'," & +_
	 "'" & Request.Form("tel_tel") & "'," & +_
	 "'" & Request.Form("tel_fax") & "'," & +_
	 "'" & Request.Form("tel_email") & "'," & +_
	 
	 "'" & Request.Form("money_name") & "'," & +_
	 "'" & Request.Form("money_name") & "'," & +_
	 "'" & Request.Form("money_org") & "'," & +_
	 "'" & Request.Form("money_org") & "'," & +_
	 "'" & Request.Form("money_country") & "'," & +_
	 "'" & Request.Form("money_country") & "'," & +_
	 "'" & Request.Form("money_state") & "'," & +_
	 "'" & Request.Form("money_city") & "'," & +_
	 "'" & Request.Form("money_street1") & "'," & +_
	 "'" & Request.Form("money_street2") & "'," & +_
	 "'" & Request.Form("money_pc") & "'," & +_
	 "'" & Request.Form("money_tel") & "'," & +_
	 "'" & Request.Form("money_fax") & "'," & +_
	 "'" & Request.Form("money_email") & "'," & +_

	 "'" & Request.Form("domain") & "'," & +_
	 "'" & Request.Form("domaintop") & "'," & +_
	 "'" & Request.Form("ftpaccount") & "'," & +_
	 "'" & Request.Form("ftppassword") & "'," & +_

	 "'" & Request.Form("maildomain") & "'," & +_
	 "'" & Request.Form("mailpassword") & "'"
	 
	 set Rs=Cn.Execute(strSQL)
	 
	if Rs("result")="0" then
		strDSM=Session("P_DSM")
		I=InStr(strDSM,PType)
		if I=Len(strDSM) then
			strRedirect="ProdSubmit.asp"
		else
			ID=Left(Right(strDSM,Len(strDSM)-I),1)
			Select Case ID
				Case "D"
					strRedirect="Domain.asp"
				Case "S"
					strRedirect="Site.asp"
				Case "M"
					strRedirect="Mail.asp"
			End Select	
		end if
	else
		%>
		<!--#include file="../../../Include/Reference.asp"-->
		<%
		Call PrintPageHead
		Response.Write "<BR><BR><BR><p align=center class=titletext>" & Rs("msg") & "</p>"
		Call PrintPageBottom
		Response.End
	end if
end if
response.redirect strRedirect
%>