但是您能告诉我应该怎么能实现页面间传递参数的效果吗?
你见过20元就能购买的全功能虚拟主机吗?袖珍30MB虚拟主机河南电信机房。地址:www.
上图的代码!
[CODE]
<!--#include file="../../conn.asp"-->
<!--#include file="peizhi.asp"-->
<html
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/doc.css" type=text/css rel=stylesheet>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle">
<TABLE WIDTH="760" BORDER="0" ALIGN="CENTER"><TR><TD>
<%
if Request("action")="action" then
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("UserPass"))="" or Trim(Request.Form("Email"))="" or Trim(Request.Form("QQ"))="" or Trim(Request.Form("tel"))="" or Trim(Request.Form("name"))="" then response.redirect "error.asp?id=004"
if len(Trim(Request.Form("UserId")))<3 or len(Trim(Request.Form("tel")))<7 then response.redirect "error.asp?id=004"
if isValidstring(Trim(Request.form("UserId")))<>"" then Response.Redirect ("error.asp?id=022")
if IsValidEmail(Trim(Request.form("Email")))=false then Response.Redirect ("error.asp?id=015")
if isInteger(Trim(Request.Form("UserId"))) then response.redirect "error.asp?id=008"
sql="select * from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
set rs=conn.Execute(Sql)
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=008")
end if
sql="select * from [Agent_User] where email='" &Trim(Request.Form("email"))&"'"
set rs=conn.Execute(Sql)
if rs.bof and rs.eof then
else
Response.Redirect("error.asp?id=014")
end if
rs.close
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("UserPass")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("UserPass"))
end if
sql="select * from [Agent_User] where (ID is null)"
sql="insert into [Agent_User] (userid,passwd,email,qq,TelePhone,name,grade,Createdate,other,daili) values('"&Trim(Request.Form("UserId"))&"','"&passwd&"','"&trim(Request.Form("email"))&"','"&trim(Request.Form("QQ"))&"','"&Trim(Request.Form("tel"))&"','"&Trim(Request.Form("name"))&"','1','"&date&"','"&trim(Request.Form("Other"))&"','"&trim(Request.Form("daili"))&"')"
conn.Execute(Sql)
set rs=nothing
set conn=nothing
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="http://www.d8b.cn/reg?action=action" method=post>
<tr>
<td bgcolor=ddeeff align=center height=24 colspan="3">用户注册</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%> <font color=red>*</font>
用户名称:</td>
<td bgcolor=FFFFFF width=26%><input name="UserId" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF width=50%>登录时所用ID号(<font color=red>>3位</font>),只能是<font color=red>英文或数字</font>。</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%> <font color=red>*</font>
用户密码:</td>
<td bgcolor=FFFFFF width=26%><input type="password" name="UserPass" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF width=50%>用户登录时所用密码。</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%> <font color=red>*</font>
真实姓名:</td>
<td bgcolor=FFFFFF width=26%><input name="name" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF width=50%>用户姓名,以便联系。</td>
</tr>
<tr>
<td bgcolor=FFFFFF> <font color=red>*</font> 电子邮件:</td>
<td bgcolor=FFFFFF><input name="Email" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF>务必准确,否则不能收到密码</td>
</tr>
<tr>
<td bgcolor=FFFFFF> <font color=red>*</font> QQ:</td>
<td bgcolor=FFFFFF><input name="QQ" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF>QQ 或MSN</td>
</tr>
<tr>
<td bgcolor=FFFFFF> <font color=red>*</font> 电话:</td>
<td bgcolor=FFFFFF><input name="Tel" value="" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:120px;"></td>
<td bgcolor=FFFFFF>带区号技术联系用(<font color=red>>7位</font>)</td>
</tr>
<tr>
<td bgcolor=FFFFFF> <font color=red>*</font> 备注说明:</td>
<td bgcolor=FFFFFF colspan="2"><input name="Other" value="自助注册帐号" tabindex=1 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:370px;"></td>
</tr>
<tr>
<td bgcolor=FFFFFF> 代理商ID:</td>
<td bgcolor=FFFFFF colspan="2"><input name="daili" style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:80px;" tabindex=1 value="<%=dlid%>" readonly>
禁止更改否则无效 </td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3"> <input type="submit" value=" 提 交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
</td>
</tr>
</form>
<tr>
<td bgcolor=FFFFFF colspan="3" align=center><font color="red">注册不用Email验证
请填写真实资料 </font></td>
</tr>
<tr>
<td bgcolor=FFFFFF colspan="3" align=center>密码遗忘或再次发送密码,点<a href=sendpass.asp><font color=red><b>这里</b></font></a>取回密码</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
[/CODE]
[此贴子已经被作者于2006-1-6 14:20:04编辑过]