已经写好的asp代码，为什么从win98移植到win2000server总是出错？那位好心的大侠快来帮帮我（急）！！！(100分)

老Q · 2001-11-27

　　已经调试好运行正确无误的asp代码，为什么从win98移植到win2000server总是出错？
那位好心的大侠快来帮帮我（急）！！！
　　错误提示为：
　　服务器对象错误'asp0178'
server.createobject 访问错误
　　检查权限时server.createobject 的调用失败。对次对象的访问被拒。
　　

John Lu · 2001-11-27

清将你的问题说详细点，最好带上源代码。
有可能是win2000的权限管理上的问题。

老Q · 2001-11-27

源代码如下：
一、文件query.asp:
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<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 1</title>
</head>
<body>
<form method="post" action="./queryResult.asp" target="_blank">
<%
dim Cn
dim Rs
dim sql
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "qyxAccess1","",""
Set Rs= Server.CreateObject("ADODB.Recordset")
sql="select qici,question from huiyi"
'sql="select qici,question from huiyi"
Set rs = Cn.Execute(Sql)
请选择查询条件:
<select size="1" name="searchselect">
<option selected value="请选择主题内容">请选择主题内容</option>
&nbsp;
<%
'列出所有会议主题
while not RS.EOF %>
<option value="<%=RS("qici")%>"><%=RS("question")%></option>
<%RS.MoveNext
wend%>
</select>
<p>　</p>
<p>&nbsp;

<%
rs.close
cn.close
set rs=nothing
set cn=nothing
%>
二、文件queryResult.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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 1</title>
</head>
<body>
<p align="center"><b><font color="#FF0000" face="宋体" size="6">冀东油田采油工艺研究所</font></b></p>
<p align="center"><b><font color="#FF0000" size="7" face="宋体">会议纪要</font></b></p>
<p align="center"><font face="宋体" color="#000000" size="3">第十六期</font></p>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><font face="宋体" color="#000000" size="3">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

采油工艺研究所办公室 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

2001所9月25日</font></td>
</tr>
<tr>
<td width="100%">
<hr color="#FF0000" noshade width="90%">
</td>
</tr>
</table>

</body>

</html>
<%
dim Cn
dim Rs
dim sql
dim body
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "qyxAccess1","",""
Set Rs= Server.CreateObject("ADODB.Recordset")
sql="select * from huiyi where qici='"&trim(Request.Form("searchselect"))&"'"

'sql="select neirong from huiyi where qici='"&trim(Request.Form("searchselect"))&"'"
Set rs = Cn.Execute(Sql)
body=rs("neirong")
if not rs.eof then

showbody(body)
'response.write rs("neirong")
end if
rs.close
cn.close
set rs=nothing
set cn=nothing
%>

John Lu · 2001-11-27

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionTimeout = Application("TS_ConnectionTimeout")
objConn.CommandTimeout = Application("TS_CommandTimeout")
objConn.CursorLocation = 3 'adUseClient
objConn.Open Application("TS_ConnectionString"), Application("TS_RuntimeUserName"), Application("TS_RuntimePassword")
其中Application("TS_ConnectionString") = "DSN=;UID=;PWD=;
APP=Microsoft (R) Developer Studio;WSID=sqlserver;
DATABASE="
以上是程序上的一点建议。我对Cn.Open "qyxAccess1","","" 不理解。
另外，你需要检测IIS虚拟目录的属性，将[red]程序保护用中（共用），执行许可为纯脚本。[/red]

netke · 2001-11-27

看看执行权限，检查一下ODBC设置，应该是出在权限问题上。检查IIS设置

qqqqq · 2001-11-27

[purple]你能告诉我具体的出错代码么，呵呵，或者你的ASP代码啊呵呵[/purple]

爱情鸟 · 2001-11-29

Connection1="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=aa;Data Source=dd;User Id=user;PASSWORD=password;SERVER=(local);UID=user;APP=Microsoft Development Environment;WSID=user;DATABASE=aa"
Set DbConn= Server.CreateObject("ADODB.Connection")
DbConn.Open Connection1
set dbrs=server.CreateObject("adodb.recordset")
sql="select * from table"
dbrs.open sql,dbconn,1,1

qqqqq · 2001-11-29

set conn=server.createobject("adodb.connection")
conn.ConnectionTimeout = 10
conn.CommandTimeout = 20
conn.CursorLocation = 3
conn.open "driver={SQL SERVER};server=web;uid=sa;pwd=sa;database=sky"
Set rs = Server.CreateObject("ADODB.Recordset")
sql=select * from tablename
rs.open sql,conn,3,3

qqqqq · 2001-11-29

看看这个如何呵呵，我就是这么用的拉呵呵

老Q · 2001-12-13

[

]我自己已经解决了，谢谢大家!

老Q · 2001-12-13

多人接受答案了。

已经写好的asp代码，为什么从win98移植到win2000server总是出错？那位好心的大侠快来帮帮我（急）！！！(100分)

老Q

Unregistered / Unconfirmed

John Lu

Unregistered / Unconfirmed

老Q

Unregistered / Unconfirmed

John Lu

Unregistered / Unconfirmed

netke

Unregistered / Unconfirmed

qqqqq

Unregistered / Unconfirmed

爱情鸟

Unregistered / Unconfirmed

qqqqq

Unregistered / Unconfirmed

qqqqq

Unregistered / Unconfirmed

老Q

Unregistered / Unconfirmed

老Q

Unregistered / Unconfirmed

Similar threads