<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../conn/cls_wry.asp"-->

<%
dengji=Replace_Text(request.Form("djid"))
 if dengji="" then
Response.write("<script >alert('对不起！参数传递错误！');window.location.href='"&HOPE_InstallDir&"/Error.html';</script>")
response.End()
end if

  set rsd=server.CreateObject("adodb.recordset")
  sqld="select * from Websen_vipgrade where id="&dengji
  rsd.open sqld,conn,1,1
  if not rsd.eof then 
  gradename=rsd("gradename")
  roleid=rsd("roleid")
  reglist=rsd("reglist")
  shenhe=rsd("shenhe")
  foldersize=rsd("foldersize")
	
dim qs,errc,iii
qs=request.servervariables("query_string")
dim nothis(19)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
nothis(19)="update"
errc=false
for iii= 0 to ubound(nothis)
if instr(qs,nothis(iii))<>0 then
errc=true
end if
next
if errc then
  response.Write("<script>alert('对不起，非法URL地址请求!');history.back(-1);</script>")
	 response.End()
end if


server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if  mid(server_v1,8,len(server_v2))<>server_v2  then
response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！\n你的IP已经被记录，如果再次来');history.back(-1);</script>"
response.End()
end if 

Function RndNumber(Min,Max)
Randomize
RndNumber=Int((Max - Min + 1) * Rnd() + Min)
End Function
Dim ItemList,OutStr,cacheInt,intI 
ItemList = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","1","2","3","4","5","6","7","8","9") 
For intI = 0 To 8 
Randomize 
OutStr = OutStr & ItemList(Int((UBound(ItemList) - 0 + 1)*Rnd + 0)) 
Next 
websen_sjhs=OutStr&RndNumber(100000,999999)&Rnd(now())
websen_sjhs=replace(websen_sjhs,".","")
websen_sjhs=replace(websen_sjhs,"-","")
sql1="select corporation_zhuce from websen_worldec_Temp "
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,3
strContent=rs1("corporation_zhuce")'neirong
set rss=server.CreateObject("adodb.recordset")
sqll="select top 1 * from Websen_worldec_config"
rss.open sqll,conn,1,1
wentiname=Request.QueryString("wentiname")

cYanNum=rss("cYanNum")
shuxin=rss("shuxin")
wentiname=rss("wentiname")
if rss("shuxin")=1 then   
 yanzhengwenti=rss("wentidaan")
 else
 yanzhengwenti=rss("wentiname")
end if
fromname=rss("SystemEmail")
mailuserpass=rss("HOPE_EmailPwd")
mailaddress=rss("SMTPServer")
tomail=Replace_Text(request.form("email"))'youxiang
huiyuanuser=Replace_Text(request.form("username")) 'name
strTitle=rss("mailsubject")'biaoti
hyname=rss("hyname")'公司会员

'  /////////////////////BBS论坛 Begin//////////////////////////////////////
if OpenBBS=1 then 
	bbsPath="../bbs/"  'BBS整合论坛连接
	if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then 
	ipdress=Request.ServerVariables("REMOTE_ADDR")
	 else
	  ipdress=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	 end if
	if ipdress="" or isnull(ipdress) or instr(1,ipdress,".")=0 then
		ipdress="未知"
	end if

end if 
'  /////////////////////BBS论坛 End//////////////////////////////////////
%><noscript><iframe src="-.html"></iframe></noscript>
<%
  if issession=0 then
  username=Replace_Text(request.Cookies("Yxmember"))
  gsid=Replace_Text(request.Cookies("Yxmemberid"))
  email=Replace_Text(request.Cookies("Email"))
  yxflag=Replace_Text(request.Cookies("yxflag"))
  gradeid=Replace_Text(request.Cookies("gradeid"))
  else
  username=session("username")
  gsid=session("id")
  gradeid=session("gradeid")
  yxflag=session("yxflag")
  email=session("email")
  end if
	if username<>"" or gsid<>"" then
	response.Redirect(HOPE_InstallDir&"member/index.asp")
	end if
'处理提交的信息处理----------- start--------------------------------------	
    



 	Nextbtn=Replace_Text(request.Form("Next"))
	issave=true
    	if Nextbtn<>"" then 
	yzm=Replace_Text(request.Form("Verifycode"))
if Verification=0 then 
    if initdata("yzmb",reglist)=1 then 
	if yzm="" then 
	response.Write("<script>alert('请输入正确的验证码!');history.back(-1);</script>")
	response.End()
	issave=false
	end if
	end if
	if yzm<>"" then
	 if Isnumeric(trim(yzm))=false then
     response.Write("<script>alert('请输入正确的验证码!');history.back(-1);</script>")
	 response.End() 
	 issave=false
	 end if
	 
	 if issession=0 then 
	  safecode=Replace_Text(request.Cookies("safecode"))
	 else
 	 safecode=Session("SafeCode")
 	 end if 
	 if cstr(yzm)<>cstr(safecode) then
     response.Write("<script>alert('请输入正确的验证码!');history.back(-1);</script>")
	 response.End()  
	 issave=false     
     end if
    end if	
else if Verification=2 then 
	if yzm<>Session("Chineses") then 
	 response.Write("<script>alert('请输入正确的验证码!');history.back(-1);</script>")
     response.End()
    end if
else
   if yzm<>Session("Foosuns") then
   response.Write("<script>alert('请输入正确的验证码!');history.back(-1);</script>")
   response.End()
   end if
 end if
end if	
	
	
	 if cYanNum=0 then
	if Replace_Text(request.form("wentiname"))="" then
		 response.Write("<script>alert('没有填写验证问题!');history.back(-1);</script>")
		 response.End() 
		 issave=false 
		end if
		if rss("shuxin")=0 then 
	if Replace_Text(request.form("wentiname"))<> rss("wentiname") then
	 response.Write("<script>alert('填写验证问题有误!');history.back(-1);</script>")
		 response.End() 
		 issave=false 
		end if
		else
	if Replace_Text(request.form("wentiname"))<> rss("wentidaan") then
	 response.Write("<script>alert('填写验证问题有误!');history.back(-1);</script>")
		 response.End() 
		 issave=false 
		end if
	end if
	 end if
	if FixName(Replace_Text(request.form("username")))="" then
		 response.Write("<script>alert('没有填写会员登录名!');history.back(-1);</script>")
		 response.End() 
		 issave=false   
 	else
		if len(FixName(Replace_Text(request.form("username"))))>20 or len(FixName(Replace_Text(request.form("username"))))<6 then
		  response.Write("<script>alert('会员登录名必须是6-20位字符!');history.back(-1);</script>")
		 response.End() 
		 issave=false	
		end if
		userCOM=FixName(Replace_Text(request.form("username")))
		sqlCOM="select id from Websen_corporation where [user]='"&userCOM&"'"
		set rsCOM=server.CreateObject("adodb.recordset")
		rsCOM.open sqlCOM,conn,1,1
		if not (rsCOM.Bof and rsCOM.eof) then
		   response.Write("<script>alert('此“会员登录名”已有人用了，请重新设置!');history.back(-1);</script>")
		 response.End()
		 issave=false 
		 rsCOM.close
		end if
    end if
	if Replace_Text(request.form("password"))="" then
 	 response.Write("<script>alert('密码必须是6-20个字符!');history.back(-1);</script>")
	 response.End()	
	 issave=false 
	else
	if len(Replace_Text(request.form("password")))>20 or len(Replace_Text(request.form("password")))<6 then
   	 response.Write("<script>alert('密码必须是6-20个字符!');history.back(-1);</script>")
	 response.End()	
	 issave=false
	 else
	if Replace_Text(request.form("confirmpassword"))<>Replace_Text(request.form("password")) then
     response.Write("<script>alert('两次输入的密码不一致!');history.back(-1);</script>")
	 response.End()	
	 issave=false	 
	end if
	end if
	end if
	
	
	if Replace_Text(request.form("email"))="" then
      response.Write("<script>alert('没有填写电子邮箱!');history.back(-1);</script>")
	 response.End()	
	 issave=false	 
	else
	if IsValidEmail(Replace_Text(request.form("email")))=false then
       response.Write("<script>alert('请填写正确的电子邮箱!');history.back(-1);</script>")
	 response.End()
	 issave=false		 
	else
	emailc=Replace_Text(request.form("email"))
	sqlc="select id from Websen_corporation where email='"&emailc&"'"
	set rsc=server.CreateObject("adodb.recordset")
	rsc.open sqlc,conn,1,1
	if not (rsc.Bof and rsc.eof) then
      response.Write("<script>alert('您填写的邮箱已经被另一个注册用户使用或同名，请另用一个电子邮件地址!');history.back(-1);</script>")
	 response.End()
	 issave=false		 
	rsc.close
	end if
   end if
   end if
   
   if Replace_Text(request.form("qymc"))="" then
     response.Write("<script>alert('没有填写公司名称!');history.back(-1);</script>")
	 response.End()	
	 issave=false
	 
	else if Instr(Replace_Text(request.form("qymc")),Chr(32))>0 then 
        response.Write("<script>alert('填写公司名称不能带空格!');history.back(-1);</script>")
		  response.End()	
	else
	qymc=Replace_Text(request.form("qymc"))
	sqlm="select id from Websen_corporation where qymc='"&qymc&"'"
	set rsm=server.CreateObject("adodb.recordset")
	rsm.open sqlm,conn,1,1
	if not (rsm.Bof and rsm.eof) then
      response.Write("<script>alert('您填写的公司名称已被使用或同名了，请用修改公司名称!');history.back(-1);</script>")
	 response.End()	
	 issave=false	
	rsm.close
 	end if
	end if
         end if 
   
   
 



   if issave=true then 
		 
   '开始存储数据
    sf=Replace_Text(request.form("province"))
	country=Replace_Text(request.form("country1"))
	city=Replace_Text(request.form("city"))
    denjiid=Replace_Text(request.form("denjiid"))
    sh=shenhe
    foldersize=Replace_Text(request.form("foldersize"))
 	username=FixName(Replace_Text(request.form("username")))
	password=Replace_Text(request.form("password"))
	question=Replace_Text(request.form("question"))
	msn=Replace_Text(request.form("msn"))
	tm=Replace_Text(request.form("tm"))
	answer=Replace_Text(request.form("answer"))
	name1=Replace_Text(request.form("name"))
	ch=Replace_Text(request.form("ch"))
	email=Replace_Text(request.form("email"))
	phonecountry=Replace_Text(request.form("CountryCode"))
	phonearea=Replace_Text(request.form("CityCode"))
	phonenumber=Replace_Text(request.form("phone_number"))
	telePhone4=Replace_Text(request.form("telePhone4"))
	phone=phonecountry&"&nbsp;"&phonearea&"&nbsp;"&phonenumber&"&nbsp;"&telePhone4
	address=Replace_Text(request.form("address"))
	faxcountry=Replace_Text(request.form("faxcountry"))
	faxarea=Replace_Text(request.form("faxarea"))
	faxnumber=Replace_Text(request.form("faxnumber"))
	fax=faxcountry&"&nbsp;"&faxarea&"&nbsp;"&faxnumber
	mobile=Replace_Text(request.form("mobile"))
	post=Replace_Text(request.form("post"))
	qymc=Replace_Text(request.form("qymc"))
	zw=Replace_Text(request.form("zw"))
 	qyjj=Replace_Text(request.form("qyjj"))
	qylb=Replace_Text(request.form("qylb"))
  	sortid=Replace_Text(request.form("p_z_Z_RootCategory"))                              '第一类
	if sortid="" then
	sortid=0
	end if
	CategoryId=split(Replace_Text(request.form("p_z_Z_CategoryId1")),",")
 	typeid=CategoryId(0)                                                                 '第二类
 	if ubound(CategoryId)>=1 then
	typeid_2=CategoryId(1)                                                               '第三类     
	else
	typeid_2=0
	end if
 	if typeid="" then
	typeid=0
	end if
	if typeid_2="" then
	typeid_2=0
	end if
 	p_z_Z_productionService=Replace_Text(request.form("productionService"))
	p_z_Z_productionService=p_z_Z_productionService&","&Replace_Text(request.form("productionService2"))
	p_z_Z_productionService=p_z_Z_productionService&","&Replace_Text(request.form("productionService3"))
  	idate=date()
	

	
	
	
	sql="select * from Websen_corporation where [user]='"&username&"' or qymc='"&qymc&"' or email='"&email&"'"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	if not (rs.Bof and rs.eof) then
 	  response.Write("<script>alert('您填写的会员登陆名或公司名称或E-mail已存在，请返回重新填写!');history.back(-1);</script>")
	 response.End()	
	else
	
 ' ///////////////////////////整合论坛 登录/////////   Begin  ////////////////////////////
		if OpenBBS=1 then 
			 sqlbbs="select top 1 * from LxTel_User where username='"&username&"' or email='"&email&"' "
			Set rsbbs = Server.CreateObject("ADODB.Recordset")
			rsbbs.open sqlbbs,ConnBBS,1,3
			DataNum=DataNum+1
				if ch="先生" then 
					ch="男"
				else
					ch="女"
				end if
			if (rsbbs.BOF and rsbbs.EOF) then
				 rsbbs.addnew
			end if
				   rsbbs("admin")=0'该帐号权限
				   rsbbs("lock")=0 '帐号状态
				   rsbbs("UserPage")="http://www.websen.net"'主页
				   rsbbs("username")=username'用户名
				   rsbbs("sex")=ch'性别
				   rsbbs("password")=md5(password,16)'论坛登录密码
				   rsbbs("passfaq")=question'论坛提示问题
				   rsbbs("passdh")=md5(answer,16) '论坛提示答案
				   rsbbs("age")=0 '年龄
				   rsbbs("email")=email'Email电子邮箱
					 if ch="先生" then
						 rsbbs("idimage")="01.gif" ''头像
					 else
					     rsbbs("idimage")="02.gif"
					 end if
					rsbbs("grade")=0
					rsbbs("credit")=0
					rsbbs("integral")=0
					rsbbs("experience")=0
					rsbbs("MoneyNum")=0
					rsbbs("postnum")=0
					rsbbs("loginnum")=0
					rsbbs("regtime")=now()
					rsbbs("kfbase")=1
					rsbbs("KfIndividual")=0
					rsbbs("LastIP")=ipdress
					rsbbs("loginfnum")=0
					rsbbs("lastlogin")=now()
					rsbbs("loginftime")=now()
					rsbbs("idimagex")=150
					rsbbs("idimagey")=200
				rsbbs.update()
				rsbbs.close()
				Set rsbbs=nothing
				CloseBBS '关闭connBBS
		end if
	
 ' ///////////////////////////整合论坛 登录 //////  End  ////////////////////////////
if OpenBBS=2 then 
	
	UserIM=Request.form("homepage") &"|||" & Qq & "|||"& Request.form("ICQ") &"|||"& Request.form("msn") &"|||"& (Request.form("yahoo")) &"|||"& (Request.form("aim")) &"|||"& (Request.form("uc"))
	UserIM=Server.htmlencode(UserIM)
	
		Set RsSetting=connDv.Execute("Select UserTitle,GroupPic,UserGroupID,IsSetting,ParentGID From Dv_UserGroups Where ParentGID=3 Order By MinArticle")
	UserClass=RsSetting("UserTitle")
	UserGroupID = RsSetting("UserGroupID")
		TitlePic=RsSetting("GroupPic")
	RsSetting.close:Set RsSetting=Nothing
			Set rsDvbbs=Server.createobject("adodb.recordset")
			SqlDvbbs="Select * from Dv_User Where [UserName]='"&username&"'"
		rsDvbbs.open SqlDvbbs,connDv,1,3
			
		if not rsDvbbs.eof then 
			rsDvbbs("UserPassword")=md5(password,16)
			rsDvbbs.update()
		else
			rsDvbbs.addnew()
			rsDvbbs("UserName")=username
			rsDvbbs("UserPassword")=md5(password,16)
			rsDvbbs("UserEmail")=email
			rsDvbbs("UserPost")=0
			rsDvbbs("UserTopic")=0
				if ch="先生" then 
					UserSex=1
				else
					UserSex=0
				end if
			rsDvbbs("UserSex")=UserSex
			rsDvbbs("UserFace")="Images/userface/image1.gif"
			rsDvbbs("UserWidth")=32
			rsDvbbs("UserHeight")=32
			rsDvbbs("UserIM")=UserIM
			rsDvbbs("JoinDate")=now()
			rsDvbbs("LastLogin")=now()
			rsDvbbs("UserLogins")=1
			rsDvbbs("UserViews")=0
			rsDvbbs("LockUser")=0
			rsDvbbs("UserClass")=UserClass
			rsDvbbs("userwealth")=100
			rsDvbbs("userEP")=60
			rsDvbbs("userCP")=30
			rsDvbbs("UserPower")=0
			rsDvbbs("UserDel")=0
			rsDvbbs("UserIsBest")=0
			rsDvbbs("UserQuesion")=question
			rsDvbbs("UserAnswer")=md5(answer,16)

			rsDvbbs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
			rsDvbbs("UserFav")="陌生人,我的好友,黑名单"
			rsDvbbs("UserInfo")="||||||||||||||||||||||||||||||||||||||||||"
			rsDvbbs("UserSetting")="1|||0|||0"
			rsDvbbs("UserGroupID")=UserGroupID
			rsDvbbs("TitlePic")=TitlePic
			rsDvbbs("UserHidden")=0

			rsDvbbs.update()
		end if
			rsDvbbs.close
		  Set rsDvbbs=nothing
		CloseBBS '关闭connBBS
end if	
	' ///////////////////////////整合论坛 登录 End////////////////////////////
	rs.addnew
	rs("user")=username
	rs("pass")=password
	rs("question")=question
	rs("answer")=answer
	rs("name")=name1
	rs("ch")=ch
	rs("tm")=tm
	rs("email")=email
	rs("phone")=phone
	rs("country")=country
	rs("sf")=sf
	rs("city")=city
	rs("address")=address
	rs("fax")=fax
	rs("mobile")=mobile
	rs("post")=post
	rs("qymc")=qymc
	rs("zw")=zw
	rs("sortid")=sortid
	rs("typeid")=typeid
	rs("typeid_2")=typeid_2
	rs("zycp")=p_z_Z_productionService
 	rs("idate")=idate
	rs("Qyjj")=qyjj 
 	rs("foldersize")=foldersize '为用户分配默认的空间大小
	rs("hybz")=0
	rs("msn")=msn
	rs("qylb")=qylb
	rs("gradeid")=denjiid
	rs("websen_ip")=ReqIP()
	rs("websen_Look")=Look_Ip(Format_Ip(ReqIP()))
	rs("websen_sjhs")=websen_sjhs
 	 if sh=1 then
	 rs("flag")=0
  	 else
	 rs("flag")=1
	 rs("BeginDate")=date()
	 rs("EndDate")=dateadd("m",12,date())
 	 end if
	 
	 rs("trust_score")=10 
	 rs.update
	 id=rs("id")
	if  sh=1 then	
 if instr(fromname,"@") then
	mailusername=left(fromname,instr(fromname,"@")-1)
else
	mailusername = fromname
end if


strContent=replace(strContent,"#user#",username)
strContent=replace(strContent,"#tomail#",email)
strContent=replace(strContent,"#shuijisz#",websen_sjhs)
strContent=replace(strContent,"#id#",id)
strContent=replace(strContent,"#url#",WebUrl)
strContent=replace(strContent,"#gongsi#",hyname)
if tomail<>"" then 
 Call SendMail (tomail,strTitle,strContent,mailusername,mailuserpass,mailaddress,fromname)	
     if err.Number<>0 then
         err.clear
 Response.write("<script >alert('恭喜你！注册成功！服务器没有开通邮箱服务-请你您谅解!');location.href='"&HOPE_InstallDir&"';</script>")
		
	response.End()
		 response.write err.message
	  else
	 Response.write("<script >alert('恭喜你！注册成功！');location.href='"&HOPE_InstallDir&"';</script>")
	  end if
	  
	  end if

	 Sub SendMail (mail_email,mail_subject,mail_body,mailusername,mailuserpass,mailaddress,fromname)
	On Error Resume Next
	Dim JMail
	userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")             
	If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")    '获得真实IP这样的话在本地，在服务器测试都没有问题了
	Set JMail = Server.CreateObject("JMail.Message")
	JMail.silent = true
	JMail.Charset = "gb2312"
	jmail.contentType = "text/html" '邮件格式（HTML）
	JMail.ISOEncodeHeaders = False
	JMail.MailServerUserName = fromname '发信人的电子邮件地址
	JMail.MailServerPassword = mailuserpass              '发信人的电子邮件密码
	JMail.From = fromname 
	JMail.FromName = fromname                            '发信人的名字
	JMail.Subject = mail_subject
	JMail.Priority = 1
	JMail.AddHeader "Originating-IP",userip
	JMail.AddRecipient(mail_email)
	JMail.Body = mail_body
	JMail.Send(mailaddress)                        'SMTP地址         
	JMail.Close() 
	Set JMail = Nothing	
End Sub

else
   if issession=0 then 
 		 Response.Cookies("Yxmember")=rs("user")
 		 Response.Cookies("Yxmemberid")=rs("id")
 	     Response.Cookies("Yxmemberlist")=md5(rs("password"),16)
	     Response.Cookies("Yxmemberip")=md5(Request.ServerVariables("REMOTE_ADDR"),16)
 		 Response.Cookies("gradeid")=rs("gradeid")  
		 Response.Cookies("yxFlag")=rs("Flag")  
		 Response.Cookies("Email")=rs("Email")
		 Response.Cookies("Yxtime")=now()
		 
		 Response.Cookies("Yxmember").Expires=dateadd("n",time_score,now())
 		 Response.Cookies("Yxmemberid").Expires=dateadd("n",time_score,now())
 	     Response.Cookies("Yxmemberlist").Expires=dateadd("n",time_score,now())
	     Response.Cookies("Yxmemberip").Expires=dateadd("n",time_score,now())
 		 Response.Cookies("gradeid").Expires=dateadd("n",time_score,now())
		 Response.Cookies("yxFlag").Expires=dateadd("n",time_score,now())
		 Response.Cookies("Email").Expires=dateadd("n",time_score,now())
		 Response.Cookies("Yxtime").Expires=dateadd("n",time_score,now())   
   else
	session("id")=rs("id")
	session("username")=rs("user")
	session("Email")=rs("Email")
	session("yxflag")=rs("flag") 
	session("gradeid")=rs("gradeid")
	session.Timeout=45
   end if 
	response.Redirect(HOPE_InstallDir&"member/index.asp")   

 	end if
	rs.close
	rs1.close
   	end if
	end if
 	
  if issession=0 then 
	response.Cookies("safecode")=""
   else
 	Session("SafeCode")=""
   end if 
  end if

  
'处理提交的信息处理----------- end --------------------------------------	
	
%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=HOPE_InstallDir%>blue/blue.CSS" type="text/css" />
<title>
    <%=webname%>会员注册</title>
<%
 dengji=Replace_Text(request.Form("djid"))
 regok=Replace_Text(request.Form("regok"))
   if dengji="" and regok="" then
   response.Write("<table border=0 cellpadding=0 cellspacing=0 width=778 align=center><tr><td align=center height=150><font color=red>对不起！非法链接！</font></td></tr><tr><td align=center> <a href='"&HOPE_InstallDir&"' target='_self'>返回首页</a>&nbsp;&nbsp;&nbsp; <a href='"&HOPE_InstallDir&"login/register.asp' target='_self'>我要注册</a>&nbsp;&nbsp;&nbsp;<a href='#' onclick='javascript:window.close();'>关闭窗口</a><br /><br /><br /></td></tr><tr><td bgcolor=#EFEFEF>"&HOPE_WebButtomGo&"</td></tr></table> ")
  
%>
<!--#include file="../inc/end.asp"-->
<%
   response.End()
  else               

  end if
  

  end if
  
  '初始设置函数----------------start-------------------------------------------------------
 function initdata(str,strs)
   if instr(strs,str)>0 then
    resultval=1
    else
	resultval=0
    end if
	initdata=resultval
 end function
  '初始设置------------------start-------------------------------------------------------
   
%>
