asp提交表单问题，菜鸟求助，高手帮忙！

我新手，本来想做个提交到数据库的表单，没想到那么困难，简单的说是分2步，一步是表格页，一步是提交的页面，谁能更详细的告诉我吗，比如我所知道的是：一；设置好表格，姓名，，身... 我新手，本来想做个提交到数据库的表单，没想到那么困难，简单的说是分2步，一步是表格页，一步是提交的页面，谁能更详细的告诉我吗，比如我所知道的是：
一；设置好表格，姓名，，身份证，邮箱，城市，地址
二；提交页x.asp，打开数据库连接，执行写入
可是还是搞不了，用DW教程里的连接ACCESS已经连接，也绑定了字符串，但是在点+后选择插入记录无法插入，这点搞不了！
本人想请哪个高手帮我写个详细的提交的代码，要求如：
一；用asp验证姓名是否填写，长度在15字节内
二；验证邮箱地址是否正确，要求有@和.
三；身份证类型是否选择（护照，身份证，学生证，其他）
四；身份证类型如果选择了身份证，那验证输入号码的长度是否在18位内
五；验证库中是否已存有相同的姓名
验证的方式：
if (document.form.name.value.length == 0) {
alert("请输入您姓名!");
document.form.name.focus();
return false;
}
像这种的验证代码不要，用asp的那种代码如if xxx then xxx end if的代码来验证
另外想问下看到别人的代码有rst rsw rs2 rsi rs 这些分别是什么意思呢

我看到的是在A页提交表单，在B页传递表单信息到数据库！

我能不能请你写个在当页提交表单？
点“填写完毕后”就验证，验证通过后就提交信息到数据库，然后跳转到指定的页面，可以吗？
验证代码不要用JavaScrip的验证方式，用ASP的！
1楼朋友能顺便把你conn.asp的代码列出来我参考下吗？展开

 我来答

5个回答

#热议# 为什么说不要把裤子提到肚脐眼？

专注商业文档
2008-12-29 · TA获得超过1395个赞

知道大有可为答主

回答量：3664

采纳率：0%

帮助的人：2586万

我也去答题访问个人页

关注

展开全部

给你我的代码，自己看着改，字符长度可以利用input的maxlength来做限制。
身份证验证没有，你自己根据我的代码写一个即可
dim db
db="d_b/#td.mdb"
on error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div align=""center"">数据库连接出错！</div>"
Response.End
End If
''''''''''''''''''''''以上为conn文件


<%
dim username
dim password
dim email
dim tpwd
dim tel
dim address
username=trim(request.Form("username"))
password=trim(request.Form("password"))
tpwd=trim(request.Form("tpwd"))
email=trim(request.form("email"))
tel=trim(request.Form("tel"))
address=trim(request.Form("address"))
if username="" and password="" and tpwd="" and Email="" and tel="" and address="" then
response.write("<script language='javascript'>alert('注册信息不完整！');history.back();</script>")
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("tpwd")))<>0 then
response.write("<script language='javascript'>alert('两次输入密码不一致！');history.back();</script>")
end if

function isemail(strng)
isemail = false
dim regEx, Match
set regEx = New RegEXP
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
regEx.IgnoreCase = True
set Match = regEx.Execute(strng)
if match.count then isemail= true
end function

if isemail(request.Form("Email")) = false then
response.write("<script language='javascript'>alert('邮箱格式不对！');history.back();</script>")
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from member",conn,1,3
if rs.eof then
response.write("<script language='javascript'>alert('该用户已存在！');history.back();</script>")
else
rs.addnew()
rs("username")=request.form("username")
rs("password")=trim(md5(request("password")))
rs("moblie")=request.Form("moblie")
rs("email")=request.Form("email")
rs("tel") = request.Form("tel")
rs("qq") = request.Form("qq")
rs("address")= request.Form("address")
rs("times")=now()
rs.update
rs.close
set rs=nothing
response.write("<script language='javascript'>alert('注册成功！');location.href='login.asp';</script>")
end if
%>

已赞过 已踩过<

评论收起

lasimmm
2008-12-29 · TA获得超过270个赞

知道小有建树答主

回答量：1025

采纳率：0%

帮助的人：451万

我也去答题访问个人页

关注

展开全部

<%
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("db/member.mdb")
set bb = server.CreateObject("adodb.connection")
bb.open connstr
%>


<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<Title>会员注册结果</title>
</head>
<body>
<table align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><span class="sty1e1 ">会员注册结果</span></td>
</tr>
</table>
<table width="359" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#ffffff">
<td align="center">
<%
dim f_username,f_passwd,f_name,f_sex,f_age,f_qq,f_email,f_url '定义变量
f_username=trim(request.Form("f_username")) '接受收到的账号
f_passwd=trim(request.Form("f_passwd")) '接受收到的密码
f_name=trim(request.form("f_name")) '接受收到的名字
f_sex=trim(request.Form("f_sex")) '接受收到的性别
f_age=trim(request.Form("f_age")) '接受收到的年龄
f_qq=trim(request.Form("f_qq")) '接受收到的QQ
f_email=trim(request.Form("f_email")) '接受收到的邮箱
f_url=trim(request.Form("f_url")) '接受收到的个人网址
if f_username="" or f_passwd="" or f_name="" or f_email="" then '判断字段等于空白
response.Write"由于你填写你的资料不完整,导致你本次注册失败了!" '输出
else
conn.execute("insert into memberdata (m_username, m_passwd, m_name, m_sex, m_age, m_qq, m_email, m_url) values('"&f_username&"', '"&f_passwd&"', '"&f_name&"', '"&f_sex&"', '"&f_age&"', '"&f_qq&"', '"&f_email&"', '"&f_url&"')") '写入对应取得的值
response.Write "<span class=sty1e2>恭喜注册成功!</span>" '输出
end if '结束
conn.close '关闭数据库
set conn=nothing
%>
<%
if f_passwd>6 then
response.Write("你输入的密码过长")
else
end if
%>
</td>
</td>
</table>
</body>
</html>


<%
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from memberdata ",bb
%>
<%=rs("m_id")%>
<%=rs("m_username")%>
<%=rs("m_passwd")%>
<%=rs("m_sex")%>
<%=rs("m_age")%>

已赞过 已踩过<

评论收起

双格菲0Ij
2009-01-01 · 超过84用户采纳过TA的回答

知道小有建树答主

回答量：349

采纳率：0%

帮助的人：247万

我也去答题访问个人页

关注

展开全部

好了~~

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

tqfss
2008-12-31 · 超过19用户采纳过TA的回答

知道答主

回答量：85

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

详谈~~~我的Q 347329177 提示答案“衔林”

已赞过 已踩过<

评论收起

tongziji77
2008-12-31

知道答主

回答量：46

采纳率：0%

帮助的人：17.8万

我也去答题访问个人页

关注

展开全部

没看明白！

已赞过 已踩过<

评论收起

更多回答（3）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp提交表单问题，菜鸟求助，高手帮忙！

其他类似问题

为你推荐：