<%
function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
response.write ""&LanguageEn80&""
Else
response.write ""&LanguageEn81&""
response.write ""&LanguageEn82&""
response.write ""&LanguageEn83&""
response.write ""&LanguageEn84&""
response.write ""&LanguageEn85&""
End If
end function
function WebLocation()
WebLocation=" "&LanguageEn19&"£º"&LanguageEn20&" - "&LanguageEn22&" - "&LanguageEn229&""&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("GroupNameEn")
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(""&LanguageEn232&"")
exit function
end if
%>
<%
elseif request.QueryString("Step")="EnterAnswer" Then
If trim(request("Answer"))="" Then
WriteMsg(""&LanguageEn233&"")
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(""&LanguageEn16&"£¡")
exit function
end if
if rs("Answer")<>MD5(trim(request("Answer"))) then
WriteMsg(""&LanguageEn234&"")
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()%>