challenge.asp

来自「现在好了」· ASP 代码 · 共 361 行 · 第 1/2 页

				Case 3
					iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Replace(Request.Form("Forum_ChanSetting(3)"),"'",""),",","")
				Case Else
					iForum_ChanSetting = iForum_ChanSetting & "," & Forum_ChanSetting(i)
				End Select
			End If
		Next
		Sql="Update Dv_Setup Set Forum_ChanSetting='"&iForum_ChanSetting&"'"
		Dvbbs.Execute(Sql)
		ReloadSetup()
		Dv_suc("网络支付设置成功！")
	Else
		Dim PassWord,rPassWord,RealName,IdCode,UserEmail
		If Request("Submit")="申请帐号并绑定网站" Then
			PassWord = Request("password")
			rPassWord = Request("repassword")
			RealName = Request("realname")
			IdCode = Request("idcode")
			UserEmail = Request("Forum_ChanSetting(4)")
			If PassWord = "" Or rPassWord = "" Or RealName = "" Or IdCode = "" Or UserEmail = "" Then
				Errmsg = "<li>请输入完整的注册信息。"
				Exit Sub
			End If
			If Not IsNumeric(IdCode) Then
				Errmsg = "<li>您输入的身份证信息有误。"
				Exit Sub
			End If
			If Len(IdCode)<>15 And Len(IdCode)<>18 Then
				Errmsg = "<li>您输入的身份证信息有误，必须是15或18位身份证号。"
				Exit Sub
			End If
			If PassWord <> rPassWord Then
				Errmsg = "<li>您两次输入的密码不一致，请重新输入。"
				Exit Sub
			End If
			If InStr(UserEmail,"@")=0 Or InStr(UserEmail,".")=0 Then
				Errmsg = "<li>您输入的邮件格式不正确。"
				Exit Sub
			End If
			Response.Redirect Dvbbs_Server_Url & "alipay.asp?Action=Join&Email="&UserEmail&"&ForumUrl="&Replace(Dvbbs.Get_ScriptNameUrl,Dvbbs.CacheData(33,0),"")&"&UserName="&Dvbbs.MemberName&"&idcode="&IdCode&"&realname="&RealName&"&password="&PassWord&""
		ElseIf Request("Submit")="绑定网站" Then
			PassWord = Request("password")
			rPassWord = Request("repassword")
			RealName = Request("realname")
			IdCode = Request("idcode")
			UserEmail = Request("Forum_ChanSetting(4)")
			If PassWord = "" Or rPassWord = "" Or UserEmail = "" Then
				Errmsg = "<li>请输入完整的注册信息。"
				Exit Sub
			End If
			If PassWord <> rPassWord Then
				Errmsg = "<li>您两次输入的密码不一致，请重新输入。"
				Exit Sub
			End If
			If InStr(UserEmail,"@")=0 Or InStr(UserEmail,".")=0 Then
				Errmsg = "<li>您输入的邮件格式不正确。"
				Exit Sub
			End If
			Response.Redirect Dvbbs_Server_Url & "alipay.asp?Action=Join&Email="&UserEmail&"&ForumUrl="&Replace(Dvbbs.Get_ScriptNameUrl,Dvbbs.CacheData(33,0),"")&"&UserName="&Dvbbs.MemberName&"&idcode=&realname=&password="&PassWord&""
		Else
			For i = 0 To Ubound(Forum_ChanSetting)
				If i = 0 Then
					iForum_ChanSetting = Forum_ChanSetting(i)
				Else
					Select Case i
					Case 3
						iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Replace(Request.Form("Forum_ChanSetting(3)"),"'",""),",","")
					Case Else
						iForum_ChanSetting = iForum_ChanSetting & "," & Forum_ChanSetting(i)
					End Select
				End If
			Next
			Sql="Update Dv_Setup Set Forum_ChanSetting='"&iForum_ChanSetting&"'"
			Dvbbs.Execute(Sql)
			ReloadSetup()
			Dv_suc("网络支付设置成功！")
		End If
	End If
End Sub

'保存从主服务器返回信息
Sub Save4()
	'3是否开启/4支付宝账号/5动网关联ID/6Forum_AliPayKey
	If Request("UserID")="" Or Request("Email")="" Or Request("ForumKey")="" Then
		Errmsg=ErrMsg + "<BR><li>非法的返回参数。"
		Exit Sub
	End If
	Dim Forum_ChanSetting,iForum_ChanSetting,mForum_ChanSetting
	Set Rs=Dvbbs.Execute("Select Forum_ChanSetting From Dv_Setup")
	Forum_ChanSetting = Rs(0)
	Forum_ChanSetting = Split(Forum_ChanSetting,",")
	mForum_ChanSetting = False
	For i = 0 To Ubound(Forum_ChanSetting)
		If i = 0 Then
			iForum_ChanSetting = Forum_ChanSetting(i)
		Else
			Select Case i
			Case 3
				iForum_ChanSetting = iForum_ChanSetting & ",0"
			Case 4
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Replace(Request("Email"),"'",""),",","")
			Case 5
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Replace(Request("UserID"),"'",""),",","")
			Case 6
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Replace(Request("ForumKey"),"'",""),",","")
			Case Else
				iForum_ChanSetting = iForum_ChanSetting & "," & Forum_ChanSetting(i)
			End Select
		End If
	Next
	Sql="Update Dv_Setup Set Forum_ChanSetting='"&iForum_ChanSetting&"'"
	Dvbbs.Execute(Sql)
	ReloadSetup()
	Rs.Close
	Set Rs=Nothing
	Dv_suc("主服务器网络支付功能设置成功！" & Request("msg"))
End Sub

'保存手机短信相关
Sub Save2()
	Dim Forum_ChanSetting,iForum_ChanSetting,mForum_ChanSetting
	Set Rs=Dvbbs.Execute("Select Forum_ChanSetting,Forum_challengePassWord From Dv_Setup")
	Forum_ChanSetting = Rs(0)
	Forum_ChanSetting = Split(Forum_ChanSetting,",")
	mForum_ChanSetting = False
	For i = 0 To Ubound(Forum_ChanSetting)
		If i = 0 Then
			iForum_ChanSetting = Request.Form("Forum_ChanSetting("&i&")")
			If (Cint(Replace(Request.Form("Forum_ChanSetting("&i&")"),",",""))=1 And Rs(1)="raynetwork") Or (Cint(Replace(Request.Form("Forum_ChanSetting("&i&")"),",",""))=1 And Cint(Forum_ChanSetting(i))=0) Then
				mForum_ChanSetting = True
			End If
		Else
			Select Case i
			Case 1
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Request.Form("Forum_ChanSetting("&i&")"),",","")
			Case 13
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Request.Form("Forum_ChanSetting("&i&")"),",","")
			Case Else
				iForum_ChanSetting = iForum_ChanSetting & "," & Forum_ChanSetting(i)
			End Select
		End If
	Next
	Sql="Update Dv_Setup Set Forum_ChanSetting='"&iForum_ChanSetting&"'"
	Dvbbs.Execute(Sql)
	ReloadSetup()
	Rs.Close
	Set Rs=Nothing
	If mForum_ChanSetting Then Response.Redirect "install.asp?isnew=1"
	Dv_suc("手机短信设置成功！")
End Sub

'保存杂项
Sub Save3()
	Dim Forum_ChanSetting,iForum_ChanSetting,mForum_ChanSetting
	Set Rs=Dvbbs.Execute("Select Forum_ChanSetting,Forum_challengePassWord From Dv_Setup")
	Forum_ChanSetting = Rs(0)
	Forum_ChanSetting = Split(Forum_ChanSetting,",")
	mForum_ChanSetting = False
	For i = 0 To Ubound(Forum_ChanSetting)
		If i = 0 Then
			iForum_ChanSetting = Forum_ChanSetting(i)
		Else
			Select Case i
			Case 2
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Request.Form("Forum_ChanSetting("&i&")"),",","")
			Case 14
				iForum_ChanSetting = iForum_ChanSetting & "," & Replace(Request.Form("Forum_ChanSetting("&i&")"),",","")
			Case Else
				iForum_ChanSetting = iForum_ChanSetting & "," & Forum_ChanSetting(i)
			End Select
		End If
	Next
	Sql="Update Dv_Setup Set Forum_ChanSetting='"&iForum_ChanSetting&"'"
	Dvbbs.Execute(Sql)
	ReloadSetup()
	Rs.Close
	Set Rs=Nothing
	Dv_suc("RSS设置成功！")
End Sub
%>