各位大侠,帮帮忙吧!怎么没有没话呀!

请问你做了相关数据库吗?按提交时,在表单里form有个属性active,把它的值设为你想提交的文件里去.比如设为active="insert.asp"此时,你又要对insert.asp文件作相应的处理!

谢谢回复,不不大侠能说明白点吗,我怎么找不到你所的呀.

<form name=userinfo method=post action=reg.asp?action=save>
<table width="80%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td height=15 colspan=2 bgcolor="#f1f1f1">
<font color="#FF3300">&gt;&gt; 用户名和密码</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>用 户 名：</td>
<td width=70% class=pad>
<input class="wenbenkuang" name="username" type="text" id="username" maxLength="18">
<font color=red>**</font> 支持中文,不支持特殊符号如:*%#!-&%$</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>密　　码：</td>
<td class=pad>
<input class="wenbenkuang" name="userpassword" type="password" id="userpassword" maxLength="18">
<font color=red>**</font> 不支持特殊符号如:*%#!-&%$</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>确认密码：</td>
<td class=pad>
<input class="wenbenkuang" name="userpassword1" type="password" id="userpassword1" maxLength="18">
<font color=red>**</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>电子邮箱：</td>
<td class=pad>
<input class="wenbenkuang" name="useremail" type="text" id="useremail">
<font color=red>**</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" valign="middle" bgcolor="#f1f1f1"><font color="#FF3300">&gt;&gt; 用户详细资料</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>您的真实姓名：</td>
<td class=pad>
<input class="wenbenkuang" name="userzhenshiname" type="text" id="userzhenshiname" size="10">
<font color=red>**</font> 以便发货确认
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>您的身份证号：</td>
<td class=pad>
<input class="wenbenkuang" name="MoMNo" type="text" id="MoMNo" maxlength="18" onKeyPress="event.returnValue=IsDigit();">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>姓　　别：</td>
<td class=pad>
<input type=radio name=babysex id=Select1 value=0 checked>男
<input type=radio name=babysex id=Select1 value=1>女
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>用户性质：</td>
<td class=pad>
<input type=radio name=dadyname value="个人用户" checked>个人用户
<input type=radio name=dadyname value="企业用户">企业用户
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>收货(通讯)地址：</td>
<td class=pad>
<input class="wenbenkuang" name="shouhuodizhi" type="text" id="shouhuodizhi" size="40" maxlength="30">
<font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>邮　　编：</td>
<td class=pad>
<input class="wenbenkuang" name="youbian" type="text" id="youbian" maxlength="6" size="10" onKeyPress="event.returnValue=IsDigit();">
<font color=red>**</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=30% align=right>联系电话：</td>
<td class=pad>
<input class="wenbenkuang" name="usertel" maxlength="18" type="text" id="usertel">
<font color=red>**</font>
</td>
</tr>
<%
'////////////送货方式
response.Write "<tr bgcolor=#FFFFFF><td width=30% align=right>送货方式：</td><td class=pad><select class=wenbenkuang name=songhuofangshi id=songhuofangshi>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
response.Write "</select><font color=red>**</font></td></tr>"
response.Write "<tr bgcolor=#FFFFFF><td width=30% align=right>支付方式：</td><td class=pad><select class=wenbenkuang name=zhifufangshi id=zhifufangshi>"
'////////////支付方式
rs2.Open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("songid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
set rs2=nothing
response.Write "</select><font color=red>**</font></td></tr>"
%>
<tr bgcolor="#FFFFFF">
<td width=20% align="right"></td>
<td class=pad>
<input class="go-wenbenkuang" onClick="return checkuserinfo();" type=submit name="submit" value=" 提交信息 ">
<input class="go-wenbenkuang" onClick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
</td>
</tr>
</table>
</form>

<%case "save"%>
<!--#include file="md5.asp"-->
<%call saveuser()%>
<%
end select%>
<%sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select regtiaoyue from shop_config",conn,1,1
response.Write trim(rs("regtiaoyue"))
rs.Close
set rs=nothing
end sub

sub saveuser()
if session("regtimes")=1 then
response.Write "<table width=760 border=0 cellspacing=0 cellpadding=0 align=center><tr><td height=300 align=center><font color=red>对不起，您刚注册过用户，请稍后再进行注册!</font></td></tr></table>"
response.End
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where useremail='"&trim(request("useremail"))&"' or username='"&trim(request("username"))&"'",conn,1,1
if rs.recordcount>0 then
call usererr()
rs.close
else
rs.close

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword")))
rs("useremail")=trim(request("useremail"))
'rs("quesion")=trim(request("quesion"))
'rs("answer")=md5(trim(request("answer")))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=1

rs("reglx")=1
rs("jifen")=0
rs("jiaoyijine")=0
rs("sex")=1
rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
'rs("dadyname")=trim(request("dadyname"))
'rs("szShi")=trim(request("szShi"))
'rs("MoMname")=trim(request("MoMname"))
'rs("MoMNo")=trim(request("MoMNo"))
'rs("yuchan")=trim(request("yuchan"))
'rs("babysex")=trim(request("babysex"))

'论坛的
    rs("face")="userface/image1.gif"
    Rs("width")=request("width")
    Rs("height")=request("height")
    rs("bbstype")=request("bbstype")
    rs("userclass")="新手上路"
    rs("userWealth")=100
    rs("userEP")=50
    rs("usercP")=50
    rs("lockuser")=0
    Rs("showRe")=1
    rs("userinfo")="||||||||||||||||||||||||||||||||||||||||||"
    rs("usersetting")="1|||0"
    rs("titlepic")="level0.gif"
    rs("usergroupid")=4

rs.update
    conn.execute("update config set usernum=usernum+1,lastuser='"&username&"'")
rs.close
set rs=nothing
set rs=conn.execute("select top 1 userid,face from [user] order by userid desc")
userid=rs(0)
response.Cookies("godbook")("username")=trim(request("username"))
response.Cookies("godbook")("jiaoyijine")=0
response.Cookies("godbook")("jifen")=0
response.Cookies("godbook")("reglx")=1
response.Cookies("shangcheng").expires=date+1


    Response.Cookies("aspsky")("username") = trim(request("username"))
    Response.Cookies("aspsky")("password") = trim(request("userpassword"))
    Response.Cookies("aspsky")("userclass") = "新手上路"
    Response.Cookies("aspsky")("userid") = userid
    Response.Cookies("aspsky")("userhidden") = 2
    Response.Cookies("aspsky").path="/shop/bbs/"
     Response.Cookies("aspsky")("usercookies") = 1
    Response.Cookies("aspsky").Expires=Date+1


session("regtimes")=1
session.Timeout=1


set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing

这些就是全过程