<%
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
%>
<%=WebLocation()%>