IIS架构ASP时遇到的问题，大家看看，怎么解决

wangchaoeric 2005-04-23 10:12:30

进home_default.asp时候没有问题，然后用户名和密码登陆的时候就出现这样的情况，连接都没有问题的，高手们看看是怎么回事，谢谢
技术信息（用于支持人员）

错误类型：
ADODB.Connection (0x800A0E78)
对象关闭时，不允许操作。
/cims/home_main.asp, 第 28 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
POST 80 ??? /cims/home_main.asp

POST Data:
hiddenCountLoginTimes=0&txtUserName=11&txtPassWord=11&B1=+++%B5%C7+++++%C2%BC+++

时间：
2005年4月23日, 10:12:51

详细信息：
Microsoft 支持

...全文

228 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

wangchaoeric 2005-04-23

打赏
举报

这是全部的原代码：
<%Language="VBS"%>
<%Response.buffer=true%>
<%
dim passUserName
dim passPassWord
dim MySQL
dim loginResult
dim countLoginTimes

passUserName=""
passPassWord=""
MySQL=""
loginResult=""

if request.form("hiddenCountLoginTimes")<>"" then
countLoginTimes=CInt(request.form("hiddenCountLoginTimes"))
else
countLoginTimes=0
end if

passUserName=passUserName+request.form("txtUserName")
passPassWord=passPassWord+request.form("txtPassWord")

if countLoginTimes<3 then
if request.form("txtUserName")<>"nothing" AND request.form("txtUserName")<>"" then
MySQL=MySQL+"Select * from AppSystemUsers where UserName='"&passUserName&"' AND PassWord='"&passPassWord&"'"

Set rs=MyConn.Execute(MySQL)

countLoginTimes=countLoginTimes+1

if not rs.EOF then
session("UserID")=cstr(rs("UserID"))
session("Department")=cstr(rs("Department"))
session("IsSystemManager")=cstr(rs("IsSystemManager"))
session("IsDepartManager")=cstr(rs("IsDepartManager"))
session("username")=rs("username")
session("Password")=rs("Password")
session("UserDescribe")=rs("UserDescribe")
else
loginResult="您的登录名和密码不匹配，请重新输入！"
end if
rs.close
set rs=nothing
end if
else
loginResult="对不起，因为错误登录超过三次，您的登录请求被拒绝！"
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 3</title>
<base target="main">
</head>

<body background="images/back_hx.jpg">
<Script language="VBS">
sub window_onload()
tempStr="<%=session("UserID")%>" '将session值传递到客户端，判断是否为系统用户
if tempStr<>"" then
frmToNewDepartment.target="_top"
select case "<%=session("department")%>" '根据不同用户提交到不同部门
case "production"
frmToNewDepartment.action="home_default_production.asp"
frmToNewDepartment.submit
case "archive"
frmToNewDepartment.action="home_default_archive.asp"
frmToNewDepartment.submit
case "measure"
frmToNewDepartment.action="home_default_measure.asp"
frmToNewDepartment.submit
case "workshop_old","workshop_new"
frmToNewDepartment.action="home_default_workshop.asp"
frmToNewDepartment.submit
case "market"
frmToNewDepartment.action="home_default_market.asp"
frmToNewDepartment.submit
case "buy"
frmToNewDepartment.action="home_default_buy.asp"
frmToNewDepartment.submit
case "technic"
frmToNewDepartment.action="home_default_technic.asp"
frmToNewDepartment.submit
case "chair"
frmToNewDepartment.action="home_default_chair.asp"
frmToNewDepartment.submit
case "quality"
frmToNewDepartment.action="home_default_quality.asp"
frmToNewDepartment.submit
case "office"
frmToNewDepartment.action="home_default_office.asp"
frmToNewDepartment.submit
case "equipment"
frmToNewDepartment.action="home_default_equipment.asp"
frmToNewDepartment.submit
case "storage"
frmToNewDepartment.action="home_default_storage.asp"
frmToNewDepartment.submit
case else
frmToNewDepartment.action="home_default.asp"
end select
exit sub
end if
'传递登录次数
dim passCountLoginTimes
passCountLoginTimes=<%=CountLoginTimes%>
frmSubmit.hiddenCountLoginTimes.value=passCountLoginTimes
end sub
</script>
<p><b><font face="隶书" size="4" color="#D90000"><%response.write loginResult%></font></b></p>
<p></p>
<p>　</p>
<p>　</p>
<div align="center">
<center>
<form name="frmSubmit" method="post" action="home_main.asp">
<input type="hidden" name="hiddenCountLoginTimes">
<table border="0" width="355" height="129" cellspacing="0" cellpadding="0">
<tr>
<td width="69" height="30"><font color="#808080" size="4">用户名:</font></td>
<td width="270" height="30"><input type="text" name="txtUserName" size="20" tabindex="1"></td>
</tr>
<tr>
<td width="69" height="45"><font color="#808080" size="4">密码:</font></td>
<td width="270" height="45"><input type="password" name="txtPassWord" size="20" tabindex="2"></td>
</tr>
<tr>
<td width="69" height="38"><font color="#808080" size="4">登录:</font></td>
<td width="270" height="38"><input type="submit" value=" 登录 " name="B1" style="color: #808080; background-color: #FFFFFF"></td>
</tr>
</table>
</center>
</form>
</div>
<p>　</p>
<p>　</p>
<div align="center">
<table border="0" width="500" height="29">
<tr>
<td width="400" height="29">
<p align="center"><font color="#000080">软件制作：南京理工大学CIMS研究所
</font></p>
</td>
</tr>
</table>
</div>
<form name="frmToNewDepartment">
</form>
</body>

</html>

lstup 2005-04-23