问题描述
在运行网站的时候，查询员工信息出现下面的错误！(0x80004005)未指定的错误/myweb/Employee/EmployeeInformation.asp,第19行/myweb/Employee/EmployeeInformation.asp,第49行，代码如下：<%@Language=VBScript%><%'判断用户是否登录ifisempty(Session("ID"))thenResponse.Redirect"../login.asp"endif'连接系统数据库setconn=Server.CreateObject("ADODB.Connection")conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+Server.MapPath("Datasource.mdb")+";PersistSecurityInfo=True")'判断用户是否提交了表单ifnotIsEmpty(Request.Form("Send"))then'如果用户希望查询全部员工信息ifRequest.Form("SendTo")="AllEmployeeInformation"thenSetRSEnquiryResult=conn.Execute("select*fromPSLoginsorderby"&Request.Form("AllOrder"))TheMessage="全体员工信息按"&Request.Form("AllOrder")&"排序如下"label=true'如果用户希望查询某个部门员工信息elseifRequest.Form("SendTo")="DepartmentEmployeeInformation"thenSetRSEnquiryResult=conn.Execute("select*fromPSLoginswhereDepartment='"_//第19行&Request.Form("DepartmentName")&"'orderbyPosition")TheMessage=Request.Form("DepartmentName")&"全部员工信息如下"label=true'如果用户希望进入修改个人信息页面elseifRequest.Form("SendTo")="ModifyPersonalInformation"thenResponse.Redirect"ModifyPersonalInformation.asp"'如果用户希望进入系统管理员页面elseifRequest.Form("SendTo")="SystemManager"thenifSession("IsSystemManager")=truethenSession("SystemOrder")=Request.Form("SystemOrder")Response.Redirect"SystemManager.asp"elseTheMessage="对不起，您不是系统管理员，没有此项权限"Label=falseendif'如果用户希望查询某个员工信息elseifRequest.Form("SendTo")="OneEmployeeInformation"thenLabel=trueifRequest.Form("CheckName")="FromList"thenSetRSEnquiryResult=conn.Execute("select*fromPSLoginswhereName='"_&Request.Form("RoleName")&"'")TheMessage="查询员工'"&Request.Form("RoleName")&"'信息结果如下"elseSetRSEnquiryResult=conn.Execute("select*fromPSLoginswhereName='"_&Request.Form("TypeName")&"'")TheMessage="查询员工'"&Request.Form("TypeName")&"'信息结果如下"endif'如果用户希望查询部门主管信息elseSetRSEnquiryResult=conn.Execute("select*frompsloginswhereposition='主管'")//第49行TheMessage="各部门主管信息如下"label=trueendif'如果用户是第一次进入页面elseTheMessage="请在下面选择员工信息管理选项"endifsetRSDepartments=conn.Execute("selectDepartmentNamefromDepartmentsorderbyDepartmentName")setRSRoles=conn.Execute("selectNamefromPSLoginsorderbyName")%>
解决方案
解决方案二：
conn.Execute方法好像不能返回RecordSet19行改成下面的代码：SQL="select*fromPSLoginswhereDepartment='"&Request.Form("DepartmentName")&"'orderbyPosition"SetRSEnquiryResult=Server.CreateObject("ADODB.RECORDSET")RSEnquiryResult.OpenSQL,conn,1,349同理，自己改
解决方案三：
请用发帖数超过10个的帐号提问。这样空白小号没信誉度。