cl_clswap.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

		Sql="Select InfoID,ChannelID,ClassID,PhotoName,Author,Hits,Intro from Cl_Photo Where InfoID="&sInfoID&" and Status=1 and Deleted=False"
		Set rs=Cl.Execute(sql)
		if rs.eof and rs.bof then
			response.write FormatStr("<p align=""center"">"&ItemName&"参数错误!</p>")
		else	
			response.write "<p align=""center""><strong>"&FormatStr(rs(3))&"</strong></p>"
			response.write "<p align=""left"">"&FormatStr("作者："&rs(4)&"")
			response.write "<br />"&FormatStr("点击："&rs(5)&" 次")
			response.write "<br />"&FormatStr("下载：点击下载")&"</p>"
			response.write "<p align=""center"">-----"&FormatStr("简介")&"-----</p>"
			response.write "<p align=""left"">    "&FormatStr(FormatContent(rs(6)))&"</p>"
		End if
		rs.close : Set rs=nothing
	End Sub
'影视显示
	Public Sub ShowMovie(sInfoID,ItemName)
		Sql="Select InfoID,ChannelID,ClassID,MovieName,Author,Hits,Intro from Cl_Movie Where InfoID="&sInfoID&" and Status=1 and Deleted=False"
		Set rs=Cl.Execute(sql)
		if rs.eof and rs.bof then
			response.write FormatStr("<p align=""center"">"&ItemName&"参数错误!</p>")
		else	
			response.write "<p align=""center""><strong>"&FormatStr(rs(3))&"</strong></p>"
			response.write "<p align=""left"">"&FormatStr("作者："&rs(4)&"")
			response.write "<br />"&FormatStr("点击："&rs(5)&" 次")
			response.write "<br />"&FormatStr("下载：点击下载")&"</p>"
			response.write "<p align=""center"">-----"&FormatStr("简介")&"-----</p>"
			response.write "<p align=""left"">    "&FormatStr(FormatContent(rs(6)))&"</p>"
		End if
		rs.close : Set rs=nothing
	End Sub
'商品显示
	Public Sub ShowProduct(sInfoID,ItemName)
		Sql="Select InfoID,ChannelID,ClassID,ProductName,Producer,Hits,Explain,ProductSn from Cl_Product Where InfoID="&sInfoID&" and Status=1 and Deleted=False"
		Set rs=Cl.Execute(sql)
		if rs.eof and rs.bof then
			response.write FormatStr("<p align=""center"">"&ItemName&"参数错误!</p>")
		else
			response.write "<p align=""center""><strong>"&FormatStr(rs(3))&"</strong></p>"
			response.write "<p align=""left"">"&FormatStr("编号："&rs(7)&"")
			response.write "<br />"&FormatStr("商家："&rs(4)&"")
			response.write "<br />"&FormatStr("点击："&rs(5)&" 次")
			response.write "<br />"&FormatStr("下载：点击下载")&"</p>"
			response.write "<p align=""center"">-----"&FormatStr("简介")&"-----</p>"
			response.write "<p align=""left"">    "&FormatStr(FormatContent(rs(6)))&"</p>"
		End if
		rs.close : Set rs=nothing
	End Sub
'用户登陆
	Public Sub UserLogin()
		response.write "<p><a href="""& FileNameStr &""">"&FormatStr("用 户 登 陆")&"</a><br/> </p><p>"
		response.write FormatStr("用户名: ")&"<input emptyok=""false"" name=""userName"" size=""10"" maxlength=""20"" type=""text"" value="""" /><br/>"
		response.write FormatStr("密　码: ")&"<input emptyok=""false"" name=""Password"" size=""10"" maxlength=""32"" type=""password"" /><br/>"
		response.write "<anchor>"&FormatStr("登入")&"<go href="""& FileNameStr &"?Action=ChkLogin"" method=""post"" accept-charset=""UTF-8"">"
		response.write "<postfield name=""userName"" value=""$(userName)"" />"
		response.write "<postfield name=""Password"" value=""$(Password)"" />"
		response.write "<postfield name=""validate"" value=""0000"" />"
		response.write "</go></anchor>"
		response.write " <a href="""& FileNameStr &""">"&FormatStr("返回")&"</a></p>"
	End Sub
'登陆过程
	Public Sub UserChkLogin()
		if Cl.Web_Setting(54)<>"Yes" Then
			Response.write "<p><br/>"&FormatStr("登录失败，WAP服务已经禁止会员登录")&"<br/><a href="""& FileNameStr &""">"&FormatStr("返回首页")&"</a></p>"
			Exit Sub
		End if
		Dim UserName,Password,TruePassWord,RsLogin,SQL
		UserName=Cl.CheckStr(Trim(Request.form("userName")))
		Password=Md5(Cl.CheckStr(Trim(Request.form("Password"))),16)
		SQL="Select " & Db.UserID & "," & Db.UserName & "," & Db.UserPassWord & ","&Db.UserReName&"," & Db.UserEmail & "," & Db.UserSex & "," & Db.UserFace & "," & Db.UserFaceWidth & "," & Db.UserFaceHeight & "," & Db.UserIM & "," & Db.UserJoinDate & "," & Db.UserLastLogin & "," & Db.UserLogins & "," & Db.UserQuestion & "," & Db.UserAnswer & "," & Db.UserLastIP & "," & Db.DataCount & "," & Db.UserGroupID & "," & Db.UserPoint & "," & Db.UserMoney & "," & Db.ChargeType & "," & Db.BeginDate & "," & Db.ValidNum & "," & Db.UserTPassWord & "," & Db.WaitReceive & "," & Db.Received & "," & Db.UserMsg & "," & Db.UserLock & " From " & Db.UserTable & " where " & Db.UserName & "='" & UserName & "'"
		Set RsLogin=Cl.Execute_U(SQL)
		If RsLogin.eof or RsLogin.bof then
		response.write "<p>"&FormatStr("登入失败1" & UserName & "！")&"</p>" : Exit Sub
		end if
		if Password<>RsLogin(2) or RsLogin(17)=6 or RsLogin(17)=7 or RsLogin(27)<>0 Then
		response.write "<p>"&FormatStr("登入失败2！")&"</p>" : Exit Sub
		End if
		TruePassWord					= Cl.Createpass(16)
		Response.Cookies(Web_Cookies)("UserID")	= RsLogin(0)
		Response.Cookies(Web_Cookies)("UserName")	= UserName
		Response.Cookies(Web_Cookies)("Password")	= PassWord
		Response.Cookies(Web_Cookies)("TruePassWord")= TruePassWord
		Response.Cookies(Web_Cookies)("UserGroupID")	= RsLogin(17)
		Response.Cookies(Web_Cookies).Expires	= Date+365
		response.write "<p align='center'>"&FormatStr("登入成功！")&FormatStr(Request.form("userName"))&FormatStr("欢迎你回来.")&"</p>"
		response.write "<p><br/><a href="""& FileNameStr &""">"&FormatStr("返回首页")&"</a></p>"
	End Sub
'退出登陆
	Public Sub UserLogout()
		Cl.EmptyCookies
		response.write "<p align='center'>"&FormatStr("欢迎你已成功退出.")&"</p>"
		response.write "<p><br/><a href="""& FileNameStr &""">"&FormatStr("返回首页")&"</a></p>"	
	End Sub
'用户注册界面
	Public Sub User_Reg()
		If Cl.Web_Setting(53)="No" Then
			Call WriteErr("系统已经关闭WAP注册会员") : Exit Sub
		End If
		%>
		<p align="center">
			<%=FormatStr("新用户注册")%>
		</p>
		<p>
			<br/>
			<%=FormatStr("用 户 名:")%><br/>
			<input type="text" name="UserName" value="" /><br/>
			<%=FormatStr("输入密码:")%><br/>
			<input type="password" name="Password" value="" /><br/>
			<%=FormatStr("重复密码:")%><br/>
			<input type="password" name="PwdConfirm" value="" /><br/>
			<%=FormatStr("取回密码问题:")%><br/>
			<input type="text" name="Question" value="" /><br/>
			<%=FormatStr("取回密码答案:")%><br/>
			<input type="text" name="Answer" value="" /><br/>
			<%=FormatStr("性别:")%><br/>
			<select title="<%=FormatStr("性别")%>" name="sex" value="girl">
			<option title="sex" value="0"><%=FormatStr("男")%></option>
			<option title="sex" value="1"><%=FormatStr("女")%></option>
			</select><br/>
			<%=FormatStr("您的邮箱:")%><br/>
			<input type="text" name="Email" value="" /><br/>
			<anchor><%=FormatStr("注册")%>
			<go href="<%=FileNameStr%>?Action=RegPost" method="post" accept-charset="UTF-8">
			<postfield name="UserName" value="$(UserName)" />
			<postfield name="Password" value="$(Password)" />
			<postfield name="PwdConfirm" value="$(PwdConfirm)" />
			<postfield name="Question" value="$(Question)" />
			<postfield name="Answer" value="$(Answer)" />
			<postfield name="sex" value="$(sex)" />
			<postfield name="Email" value="$(Email)" />
			</go></anchor>
			<a title="<%=FormatStr("取消")%>"  href="<%=FileNameStr%>"><%=FormatStr("返回")%></a><br/>
		</p>
		<%
	End Sub
'用户注册过程
	Public Sub User_RegPost()
		Dim FoundErr,ErrMsg
		Dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email
		Dim UserReName,IDCard,BirthDay,CityInfo,ZipCode,UserTelePhone,UserAddRess
		Dim SchoolAge,UserWorking,UserHomePhone,UserMobile
		Dim UserIM,CheckNum,sqlReg,rsReg
		Dim strMsg,strTitle,strbody,PageTitle
		Dim RsGroup,sChargeType,sValidDays,sGroupPoint
		UserName		= Trim(request("UserName"))
		Password		= Trim(request("Password"))
		PwdConfirm		= Trim(request("PwdConfirm"))
		Question		= Trim(request("Question"))
		Answer			= Trim(request("Answer"))
		Sex				= Cl.GetClng(Request("sex"))
		Email			= Trim(request("Email"))
		UserIM			= sRIM(Trim(Request("Homepage")))&"|||"&sRIM(Trim(Request("QQ")))&"|||"&sRIM(Trim(Request("ICQ")))&"|||"&sRIM(Trim(Request("MSN")))&"|||"&sRIM(Trim(Request("AIM")))&"|||"&sRIM(Trim(Request("YaHoo")))&"|||"&sRIM(Trim(Request("UC")))
		UserIM			= Server.HTMLencode(UserIM)
		UserReName		= Trim(request("UserReName"))
		IDCard			= Trim(request("IDCard"))
		BirthDay		= Trim(request("BirthDay"))
		CityInfo		= Server.HTMLencode(sRIM(Trim(request("Country")))&"|||"&sRIM(Trim(request("Province")))&"|||"&sRIM(Trim(request("City"))))
		ZipCode			= Trim(Request("ZipCode"))
		UserTelePhone		= Trim(request("UserTelePhone"))
		UserAddRess		= Trim(request("UserAddRess"))
		SchoolAge		= Trim(request("SchoolAge"))
		UserWorking		= Trim(request("UserWorking"))
		UserHomePhone		= Trim(request("UserHomePhone"))
		UserMobile		= Trim(request("UserMobile"))
		If Cl.Web_Setting(53)="No" Then
			Call WriteErr("系统已经关闭WAP注册会员") : Exit Sub
		End If
		if Cl.strLength(UserName)>Cint(Split(Cl.Web_Setting(22),"|")(1)) or Cl.strLength(UserName)<Cint(Split(Cl.Web_Setting(22),"|")(0)) Then
			Call WriteErr("请输入用户名(不能大于"&Split(Cl.Web_Setting(22),"|")(1)&"小于"&Split(Cl.Web_Setting(22),"|")(0)&"个字符)") : Exit Sub
		else
			if Instr(UserName,chr(32))>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"