谁能帮我做个简单的注册提交页面，我给他83分
数据库ACCESS，guanli.mdb,其中项目：user,psw,tel,adr,part,time1,time2,time3
请帮我写一个从注册面输入数据，写到数据库的asp程序check.asp,我给83分，谢谢了！
注册面reg.htm
<FORM ACTION="check.asp" METHOD="POST" ><br>
帐号<INPUT TYPE="TEXT" NAME="name" SIZE="15"><br>
密码<INPUT TYPE="password" NAME="psw" SIZE="15"><br>
电话<INPUT TYPE="TEXT" NAME="tel" SIZE="20"><br>
地址<input type="text" name="adr" value="" size=25 maxlength=30><br>
院系<input type="text" name="part" value="" size=25 maxlength=30><br>
星期一上午<input type="text" name="time1" value="" size=2 maxlength=2>
下午<input type="text" name="time2" value="" size=2 maxlength=2>
晚上<input type="text" name="time3" value="" size=2 maxlength=2><br>
<INPUT TYPE="SUBMIT" VALUE="注册">
<INPUT TYPE="RESET" VALUE="重填">
</form>
问题点数：83、回复次数：3Top
1 楼beyond_xiruo（CorruptionException）回复于 2001-11-12 22:25:05 得分 43
<% @ language=vbscript %>
<% option explicit %>
<% response.expires=0 %>
<%
dim user,psw,tel,adr,part,time1,time2,time3,straccess,strpath,strconn,rst
user=trim(request.form("user"))
psw=trim(request.form("psw"))
tel=trim(request.form("tel"))
adr=trim(request.form("adr"))
part=trim(request.form("part"))
time1=trim(request.form("time1"))
time2=trim(request.form("time2"))
time3=trim(request.form("time3"))
straccess="select * from guanli"
strpath=server.mappath("guanli.mdb")
strconn="provider=microsoft.jet.oledb.4.0;data source=" & strpath
set rst=server.createobject("adodb.recordset")
rst.cursortype=1
rst.locktype=3
rst.open straccess,strconn
rst.addnew
rst("user")=user
rst("psw")=psw
rst("tel")=tel
rst("adr")=adr
rst("part")=part
rst("time1")=time1
rst("time2")=time2
rst("time3")=time3
rst.updatebatch
rst.close
%>
guanli是guanli.mdb里的表名Top
2 楼tonnycncn（托尼)(weiw.com）回复于 2001-11-12 22:46:46 得分 40
<%@ Language=VBScript %>
<%
Dim ReTVal
RetVal=RegisterNow()
if RetVal=0 then
Response.Redirect "success.asp"
else
Response.Redirect "Invaliduser.asp"
end if
function RegisterNow()
Dim strSQL,strMessage
dim oConn
set oConn=server.CreateObject ("adodb.connection")
oConn.ConnectionTimeOut = 15
oConn.CommandTimeOut = 30
oConn.Open "dsn=guanli", "", ""
dim Werelogin
set Werelogin=oConn.Execute ("select * from Customer where CustomerName='"&Request.Form ("txtName")&"'")
if not werelogin.eof then
RegisterNow=-1
oConn.Close
exit function
end if
dim WareAddress
if Request.Form ("txtWare")="" then
WareAddress=Request.Form ("txtCommunicate")
else
WareAddress=Request.Form ("txtWare")
end if
'____________________guanli是guanli.mdb里的表名
strSQL="insert into guanli (user,psw,tel,adr,part,time1,time2,time3)Values('"&_
Request.Form ("name")&"','"&_
Request.Form ("psw")&"','"&_
Request.Form ("tel")&"','"&_
Request.Form ("adr")&"','"&_
Cstr(Request.Form ("part"))&"','"&_
Request.Form ("time1")&"','"&_
Request.Form ("time2")&"','"&_
Request.Form ("time3")&"')"
oConn.Execute strSQL
set logon_Customer=oConn.Execute ("select * from Customer where user='"&Request.Form ("name")&"'and psw='"&Request.Form ("psw")&"'")
if not logon_Customer.eof then
session("UserName")=Request.Form("name")
RegisterNow=0
else
RegisterNow=-2
end if
oConn.Close
end function
%>Top
3 楼dash（）回复于 2001-11-13 15:05:01 得分 0
谢谢，分给了你们，请查收Top
