特别奇怪的一个问题，居然取不到值了！

philcc 2004-12-18 04:50:41

各位帮我看看，为什么在case"4"里rs("mofeiname")=request.form("loginname")为什么取不到值插到库，如果另外一个页面做个表单，是可以的！

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="njscc.css" rel=stylesheet type=text/css>
<title></title>
</head>
<body>
<center><br>
<%
connectstring = application("NM_connectstring")
set conn=server.createobject("adodb.connection")
conn.cursorlocation=3
conn.open connectstring
Set rst = CreateObject("ADODB.Recordset")

select case request("step")
case ""
rst.Open "select * from power", conn
do while not rst.EOF
session(rst("powercontent")) = ""
rst.MoveNext
loop
rst.close
session("interadmin")=""
session("compno")=""
session("clerkno")=""
%>
<table width=100% align=center border=0 cellspacing=0 cellpadding=2>
<tr>
<td align=center colspan=3><img border="0" src="images/main2.jpg" width="477" height="50"></td>
</tr>
<tr>
<td width=30% height=400> </td>
<td width=40% align=top>
<form id="loginform" name="loginform" method=post action="login.asp">
<table width=100% align=center border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=100% align=center>系　统　登　录</td>
</tr>
<tr height=160 align=center>
<td class=tdLoginText width=100%>
用户名称：<INPUT style="WIDTH: 140px; HEIGHT: 22px" maxLength=256 size=25 name=loginname value="<%=Request.Form("loginname")%>">
<br><br>
密码：<INPUT style="WIDTH: 140px; HEIGHT: 22px" type=Password maxLength=256 size=25 value="" name=keyword>
<br><br>
<input type=hidden name=step value=1>
<input class=buttonLogin type=submit name=bt_login value="登录" >　　　　
<input class=buttonLogin type=button onClick="javascript:if(confirm('是否退出？'))window.close();" name=bt_login value="退出" >
</td>
</tr>
</table>
</form>
</td>
<td width=30 height=400> </td>
</tr>
<tr>
<td colspan=3>

</td>
</tr>
</table>
<%
case "1"
session("company")=""
session("dept")=""
session("user")=""
session("house")=""
session("contract")=""
session("submit")=""
session("compno")=""
session("deptno")=""
session("clerkno")=""
session("username")=""
session("price")=""
'response.write "select * from clerk where loginname='" & Trim(Request("loginname")) & "' and fromdate<=sysdate and (todate is null or todate>=sysdate)"
'response.end
rst.Open "select * from clerk where loginname='" & Trim(Request("loginname")) & "' and fromdate<=sysdate and (todate is null or todate>=sysdate)" ,conn
if rst.EOF then
Response.Write "<br><br><br><br>错误的用户名或密码，或者使用期限已过！<br><br>"
Response.Write "<a href=""javascript:window.history.back()"">返回</a>"
Response.End
else
if rst("key") = Request("keyword") then
session("compno") = rst("compno")
session("deptno") = rst("deptno")
session("clerkno") = rst("clerkno")
session("username") = rst("name")
session("loginname")= rst("loginname")
rst.Close
rst.Open "select * from power", conn
do while not rst.EOF
session(rst("powercontent")) = ""
rst.MoveNext
loop
rst.close
rst.Open "select powercontent,power.powerid as powerid from clerkpower,power where clerkpower.powerid=power.powerid and clerkno=" & session("clerkno") ,conn
do while not rst.EOF
session(rst("powercontent")) = rst("powerid")

rst.MoveNext
loop
session("printer") = ""
session("printer") = request.Cookies("printer")

if session("clerkno")="80000101001" then
session("company")="admin"
end if

if session("company") <> "admin" and session("printer") = "" and session("confirm") <> "9001" then
response.Redirect "chooseprinter.asp"
end if
if session("confirm")="9001" then
response.redirect "confirmnolist.asp"
elseif session("alterreg")="9002" then
response.redirect "alterreg.asp"
elseif not (session("user")="1002") then
response.redirect "usermanager.asp"
else
Response.Redirect "usermanager.asp"
end if
else
Response.Write "<br><br><br><br>错误的用户名或密码，或者使用期限已过！<br><br>"
Response.Write "<a href=""javascript:window.history.back()"">返回</a>"
Response.End
end if
end if
case "3"
Response.Write ""
Response.Write "<br><br><br><center>密码修改<br><br>"
Response.Write "<form action=""login.asp"" name=""changekey"" width=""3000"">"
Response.Write "<table border=1 cellpadding=0 cellspacing=0>"
Response.Write "<tr class=NMTable>"
Response.Write "<td nowrap align=center bgcolor=#66ccff>用户名</td><td bgcolor=#66ccff>" & session("loginname") & "</td>"
Response.Write "</tr>"
Response.Write "<tr class=NMTable>"
Response.Write "<td nowrap align=center bgcolor=#66ccff>新密码</td><td bgcolor=#66ccff><input type=""text"" name=""i_key"" size=10 maxlength=10>"
Response.Write "</tr>"
Response.Write "<tr class=NMTable>"
Response.Write "<td nowrap align=center bgcolor=#66ccff>确认密码</td><td bgcolor=#66ccff><input type=""text"" name=""i_key1"" size=10 maxlength=10>"
Response.Write "</tr>"
Response.Write "</table><br><br>"
Response.Write "<input type=""submit"" value="" 提交 "" name=""save"" onclick=""return checkkey()"">"
Response.Write "<input type=""hidden"" value=""4"" name=""step"">"
Response.Write "</form>"
%>
<%case "4"
db="mofei.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
conn.execute("delete * from mofeionline where mofeidate<now-0.015")
set rs=server.createobject("adodb.recordset")
youip=Request.servervariables("REMOTE_ADDR")
yousql="select * from mofeionline where mofeiips='"&youip&"'"
set onlineip=conn.execute(yousql)
rs.open yousql,conn,1,3
if onlineip.eof then
rs.addnew
rs("mofeiname")=request.form("loginname")
rs("mofeiips")=Request.servervariables("REMOTE_ADDR")
rs("mofeidate")=now()
rs.update
rs.close
else
rs("mofeidate")=now()
rs.update
rs.close
end if
end select
%>
</center>
</body>
</html>

...全文

115 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

csharps 2004-12-19

打赏
举报

楼上兄弟:一般建议使用request.form 因为request这种接收方式是可以外部提交的,不太安全.

holoon 2004-12-19

打赏
举报

你是否知道request.form与request的区别？

rheleven 2004-12-19

打赏
举报

代码太乱了

要判断一下是否提交表单

philcc 2004-12-19

打赏
举报

是取输入的值的

平台想钱想疯了 2004-12-18

打赏
举报

一，代码太乱。看不清。

二，Session太多，浪费资源！！！

三，

<INPUT style="WIDTH: 140px; HEIGHT: 22px" maxLength=256 size=25 name=loginname value="<%=Request.Form("loginname")%>">
这一句，在执行的时候，里面有没有内容？？

philcc 2004-12-18