<%
Dim Conn,Rst
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../sysset/inc/mycs.mdb")
Set Rst = Server.CreateObject("ADODB.Recordset")
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
if request.form("TxtPwd1")<>request.form("TxtPwd2") then
response.Write ""
else
TxtUid=trim(request.form("TxtUid"))
TxtPwd=trim(request.form("TxtPwd1"))
if TxtUid="" or TxtPwd="" then
response.Write ""
else
Rst.Open "Select * From Member Where MemberName='" & TxtUid & "'",Conn,2,2
If not Rst.EOF Then
response.Write ""
else
StrSql="Insert Into Member (MemberName,MemberPwd,MemPower,MemPhone) "
StrSql=StrSql+"Values('"+TxtUid
StrSql=StrSql+"','"+TxtPwd
StrSql=StrSql+"','00"
StrSql=StrSql+"','"+request.form("TxtPhone")+"')"
Set Rst=Conn.Execute(StrSql)
set Rst=nothing
Conn.close
set Conn=nothing
response.Write "注册成功,请与我们相关人员联系帮你开通权限！"
'response.redirect "../softdown.asp"
end if
end if
end if
end if
%>
会员注册
