<%
url=request.ServerVariables("HTTP_REFERER")
verifycodes= Replace_Text(request("Verifycode"))
if verifycodes="" then
verifycodes=1
end if
if not isnumeric(verifycodes) then
verifycodes=1
end if
if cint(verifycodes)<>Session("SafeCode") then
response.write"
"
else
dim UsernameGet,PasswordGet
UsernameGet=Replace_Text(Request("UsernameGet"))
PasswordGet=Replace_Text(Request("PasswordGet"))
if UsernameGet<>"" and PasswordGet<>"" and (cint(verifycodes))=Session("SafeCode") then
sql="select * from Yixiang_corporation where [User]='"&UsernameGet&"' and Pass='"&PasswordGet&"' "
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write"
"
end if
if not rs.eof then
session("Email")=rs("Email")
session("id")=rs("id")
session("user")=rs("user")
session("cflag")=rs("cflag") '
session("uflag")=rs("uflag") '已审易商通
session("Flag")=rs("Flag") '已付费
if Request.Cookies("Myworldname")="" then
Response.Cookies("Myworldname")=rs("user")
Response.Cookies("Myworldname").Expires=date()+365
end if
Response.Cookies("PasswordGet")=PasswordGet
Response.Redirect(HOPE_InstallDir&"member/index.asp")
end if
rs.close
set rs=nothing
end if
end if
%>