主题:求助
58wk
[专家分:0] 发布于 2007-04-24 23:12:00
同一页面,如何把超级链接参数和post数据同时存入同一数据表,谢谢!
回复列表 (共4个回复)
沙发
偷猫 [专家分:15960] 发布于 2007-04-25 02:31:00
超级链接参数?
你指的是URL里的?后面内容吧?
那个是Request.QueryString,和Request.Form是一样用法的,
我估计你一向是Request("aaa")这样用的。
所以两者共存(特别是同名)时就没办法了。
板凳
liulei001 [专家分:12820] 发布于 2007-04-25 09:19:00
如果是在<form>的action里面的参数,两者可以一起传递。
否则可以放到hidden表单里面一起串。
3 楼
58wk [专家分:0] 发布于 2007-04-25 11:14:00
二位费心了!
我的问题具体是这样:由url:profile.asp?zid=88跳转至cjuser.asp页面。
后者页面详见代码,用户注册后post数据可以存入,但url参数却不能存入(见红色字体)。似乎在那个位置接受不了参数,文件头部或尾部可以,但那样存数据又容易出错。有劳各位能否帮我想办法解决?再次感谢大家,尤其是二三楼的高手。
<!-- #include file="Stp.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
UserName=HTMLEncode(Request.Form("UserName"))
realName=HTMLEncode(Request.Form("realName"))
if SiteSet("CloseRegUser")= 1 then error("<li>本论坛暂时不开放新用户注册!")
top
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request("menu")="AddUserName" then
password=Trim(Request.Form("password"))
Userpass2=Trim(Request.Form("Userpass2"))
UserMail=HTMLEncode(Request.Form("UserMail"))
Userhome=HTMLEncode(Request.Form("Userhome"))
PasswordQuestion=HTMLEncode(Request.Form("PasswordQuestion"))
PasswordAnswer=HTMLEncode(Request.Form("PasswordAnswer"))
if SiteSettings("BannedText")<>empty then
filtrate=split(SiteSettings("BannedText"),"|")
for i = 0 to ubound(filtrate)
UserSign=ReplaceText(UserSign,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
if UserName="" then Message=Message&"<li>您的用户名没有填写"
if Len(UserName)>16 then Message=Message&"<li>您的用户名不能超过16个字节"
if Message<>"" then error(""&Message&"")
for each ho in request.form("character")
allcharacter=""&allcharacter&""&ho&""
next
Rs.Open "select top 1 * from [typ_user]",Conn,1,3
Rs.addNew
Rs("UserName")=UserName
Rs("Userpass")=md5(password)
Rs("UserMail")=UserMail
Rs("Userhome")=Userhome
Rs("PasswordQuestion")=PasswordQuestion
Rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&""
Rs("UserRegTime")=""&now()&""
[size=2][color=FF0000]ls_id=request.QueryString("zid")
Rs("zid")=ls_id[/color][/size]
Rs.update
UserID=Rs("ID")
Rs.close
Message=Message&"<li>注册新用户资料成功<li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=2;url=Default.asp>")
elseif Request("menu")="write" then
If not Conn.Execute("Select id From [typ_user] where UserName='"&UserName&"'" ).eof or UserName="" Then error2("您所选的用户名 "&UserName&" 已经有人使用,请另外选择一个用户名。")
%>
<SCRIPT src="inc/dlc.js"></SCRIPT>
<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a3>
<td> <img src=images/Forum_nav.gif> <%ClubTree%> → <a href="CreateUser.asp">注册协议</a> →
<a href="CreateUser.asp?menu=Check">检查用户名</a> → 填写用户资料</td>
</tr>
</table><br>
<form method="POST" name="form" action=?menu=AddUserName onsubmit="return VerifyInput();">
<input type=hidden name=UserName value="<%=UserName%>">
<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a1>
<td colspan="2" valign="middle" align="Left"><b> 社区资料</b>(标有<font color=red>*</font>的必填)</td>
</tr>
<tr class=a3>
<td align="right" width="46%"><b>用户名:</b></td>
<td align="Left" width="54%"><%=UserName%><font color="red">*</font></td>
</tr>
<%if SiteSettings("EnableAntiSpamTextGenerateForRegister")=1 then%>
<tr class=a3>
<td align="right" width="46%"><b>验证码:</b></td>
<td align="Left"><input name="VerifyCode" size="10"> <img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style=cursor:pointer onClick="this.src='VerifyCode.asp'"></td>
</tr>
<%end if%>
<%if SiteSettings("EnableUser")<>1 then%>
<tr class=a3>
<td align="right" valign="middle" width="46%"><b>密码:</b><br>密码必须至少包含
6 个字符</td>
<td align="Left" valign="middle" width="54%"><input type="password" name="password" size="40" maxLength="16" onkeyup=EvalPwd(this.value); onchange=EvalPwd(this.value);>
<font color="red">*</font></td>
</tr>
</table></td>
</tr>
<tr class=a3>
<td align="right" valign="middle" width="46%"><b>重新键入密码:</b><br>请与您的密码保持一致</td>
<td align="Left" valign="middle" width="54%" class=a3><input type="password" name="Userpass2" size="40">
<font color="red">*</font></td>
</tr>
<%end if%>
<tr class=a3>
<td align="right" valign="middle" width="46%"><b>您的Email地址:</b><br>
<%if SiteSettings("EnableUser")=1 then%><font color="FF0000">密码将通过Email发送</font><%end if%></td>
<td align="Left" valign="middle" width="54%"><input type="text" name="UserMail" size="40">
<font color="red">*</font></td>
</tr>
<tr class=a1>
<td align="Left" valign="middle" colspan="2"><b> 个人生活资料</b></td>
</tr>
<tr class=a3>
<td valign="top" class=a3 width="46%"> <b>真实姓名:</b>
<input type="text" name="realname" size="18">
<font color="red">*</font></td>
<td height="71" align="Left" valign="top" class=a4 rowspan="16" width="54%">
<tr align="center" class=a4>
<td valign="middle" colspan="2"><input name="submit" type="submit" value=" 注 册 >>下 一 步 " /></td>
</tr>
</table>
<%
elseif Request("menu")="Check" then
%>
<form method="POST" name="form" action=?menu=write>
<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a3><td> <a href="CreateUser.asp">注册协议</a> → 检查用户名</td></tr></table>
<br>
<br><center>
请输入您要注册的用户名<BR>
<input type="text" name="UserName" size="28" maxlength="12" onKeyUp="ValidateTextboxAdd(this, 'btnadd')" onpropertychange="ValidateTextboxAdd(this, 'btnadd')">
<br><br>
<input type="button" value=" 上一步 " onClick="history.back()">
<input type="submit" value=" 下一步 " id='btnadd' disabled></center></form>
<%
end if
htmlend
%>
4 楼
58wk [专家分:0] 发布于 2007-04-25 20:50:00
有能人解答吗?
我来回复