<%
function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
response.write ""&Languagech80&""
Else
response.write ""&Languagech81&""
response.write ""&Languagech82&""
response.write ""&Languagech83&""
response.write ""&Languagech84&""
response.write ""&Languagech85&""
End If
end function
function WebLocation()
WebLocation=" "&Languagech19&"："&Languagech20&" - "&Languagech22&" - "&Languagech229&""&VbCrLf
end Function
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupNameCh")
rs.close
set rs=nothing
end function
function WebContent()
dim rs,sql,NewPassword
if request.QueryString("Step")="" then
%>
<%
elseif request.QueryString("Step")="EnterNameMail" then
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_Members where MemName='"&request.form("MemName")&"' and Email='"&request.form("Email")&"'"
rs.open sql,conn,1,1
if rs.eof then
WriteMsg(""&Languagech232&"")
exit function
end if
%>
<%
elseif request.QueryString("Step")="EnterAnswer" Then
If trim(request("Answer"))="" Then
WriteMsg(""&Languagech233&"")
exit function
End If
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_Members where ID="&request.QueryString("ID")
rs.open sql,conn,1,3
if rs.eof then
WriteMsg(""&Languagech16&"！")
exit function
end if
if rs("Answer")<>MD5(trim(request("Answer"))) then
WriteMsg(""&Languagech234&"")
exit function
end if
randomize timer
NewPassword=Int(899999*Rnd() +100000)
rs("Password")=MD5(NewPassword)
rs.update
rs.close
set rs=nothing
Response.Write ""
exit function
end if
end function
%>
<%=WebLocation()%>