.asp网站问题 - 编程论坛

#2

lele20072010-10-06 23:02

Server.CreateObject 失败

估计是服务器未安装相应的组件。。创建失败。。看一下创建什么组件？

安装一下。。应该就没有问题了。

#3

jetyao2010-10-06 23:06

我不知道什么组件。。
这个是一个游戏的网站系统
它需要安装的
我开它的安装网页
能进入
但是输入了 SQL 账号密码
按确认
就显示这个错误了

#4

lele20072010-10-06 23:09

Server.CreateObject 失败

/InitializePage.asp，行 29

这个文件的 29 行是 server.createobject 创建什么内容？

set xxx = server.createobject("xxx.xxx")

双引号里面的是什么内容呢？

你。在本地电脑里测试啊？

#5

jetyao2010-10-06 23:10

以下是initializepage.asp 的源码

<%
Dim SqlLocalName          '数据库地址
Dim SqlUsername           '用户名
Dim SqlPassword           '密码
Dim SqlDatabaseName       '数据库名
Dim ScrStr,Rs,countb,newPP
SqlLocalName = Trim(Request.Form("SqlLocalName"))
SqlUsername = Trim(Request.Form("SqlUsername"))
SqlPassword = Trim(Request.Form("SqlPassword"))
SqlDatabaseName = Trim(Request.Form("SqlDatabaseName"))

If SqlLocalName <> "" And SqlUsername <> "" And SqlPassword <> "" And SqlDatabaseName <> "" Then
   Set newPP = Server.CreateObject("LuttClas.SqlLink")
   newpp.CodePassWord(SqlLocalName,SqlUsername)=SqlPassword
   ScrStr = ScrStr & "<"
   ScrStr = ScrStr & "%"&vbcrlf
   ScrStr = ScrStr & "Const SqlLocalName = """&newPP.Get_LocalName&"""" & vbcrlf
   ScrStr = ScrStr & "Const SqlUsername = """&newPP.Get_Username&"""" & vbcrlf
   ScrStr = ScrStr & "Const SqlPassword ="""&newPP.Get_Password&"""" & vbcrlf
   ScrStr = ScrStr & "Const SqlDatabaseName = """&SqlDatabaseName&""" "& vbcrlf
   ScrStr = ScrStr & "%"
   ScrStr = ScrStr & ">"&vbcrlf
   Set newPP = Nothing
   Call WriteFileA("data/TabName.asp",ScrStr)
End If
Function WriteFileA(fi1,okf)
  Dim file1,fout,fso
  file1=server.mappath(fi1)
  Set fso = Server.CreateObject("Scripting.FileSystemObQian")
  Set fout = fso.Createtextfile(file1,true)
  fout.writeline okf
  fout.close : Set fout = Nothing: Set fso = Nothing
  Response.Redirect "InitializePage.asp"
End Function

Function checkqxer(quanxian)
Dim arrayqx,g
    arrayqx=split(Session("QX"),",")
for g=0 to ubound(arrayqx)
    if quanxian = arrayqx(g) then
    checkqxer = true
    exit function
    else
    checkqxer = false
    end if
next
End Function

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">

</style>
</head>
<body bgcolor="#799AE1">
<h5>数据库连接</h5><hr>
<table width="50%" height="167" border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#E8E8E8">
  <form name="form1" method="post">
  <tr height="30">
    <td> </td>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td width="5%"> </td>
    <td width="34%"><span class="STYLE1">数据库连接地址:</span></td>
    <td width="61%">
      <input name="SqlLocalName" type="text" value="127.0.0.1">    </td>
  </tr>
  <tr>
    <td> </td>
    <td><span class="STYLE1">用户名:</span></td>
    <td>
        <input name="SqlUsername" type="text" value="sa">    </td>
  </tr>
  <tr>
    <td> </td>
    <td><span class="STYLE1">密  码:</span></td>
    <td>
      <input name="SqlPassword" type="password">    </td>
  </tr>
  <tr>
    <td> </td>
    <td><span class="STYLE1">数据库名称:</span></td>
    <td>
      <input name="SqlDatabaseName" type="text" value="RanUser" readonly>    </td>
  </tr>
  <tr>
    <td height="40" colspan="3" align="center">
      <input type="submit" name="Submit" value="提交">    </td>
    </tr>
  </form>
</table>
</body>
</html>

#6

lele20072010-10-06 23:19

Set fso = Server.CreateObject("Scripting.FileSystemObQian")

你把这句改成：

set fso = Server.CreateObject("Scripting.FileSystemObject")

这样试一下。。29行。别改错了。。

#7

jetyao2010-10-06 23:21

Microsoft VBScript 运行时错误错误 '800a0046'

没有权限

/InitializePage.asp，行 30

现在到这个错误

#8

lele20072010-10-06 23:22

没有权限啊。。
你在本地电脑测试啊？

修改一下权限。。

具体的操作方式就是：

鼠标右键点击网站根目录（文件夹）（或者它上级目录，但是注意要能够继承权限）-〉选择“共享和安全”-〉选择“安全”选项卡-〉点击“添加”按钮-〉点击“高级...”按钮-〉点击“立即查找(N)”按钮-〉找到前缀为“IUSR_”的用户名
（格式为IUSR_计算机名）-〉选中此用户，点击确定-〉这样这个用户就被加进来了-〉在“Internet来宾帐户”的权限框中，除了默认的还要选中“写入权限”-〉“应用”或者“确定”即可。

如果是XP系统。。记得把简单共享的钩。。设置一下。。

#9

lele20072010-10-06 23:25

你要用FSO操作。。是要有相应的权限的。。
本地测试要设置好。。传上空间里，一般是没有问题的。。

#10

jetyao2010-10-06 23:26

我是在服务器测试
服务器系统是 windows server 2003

#11

lele20072010-10-06 23:27

噢。。
那你按8楼的方法设置一下。。主要是给权限。。

#12

jetyao2010-10-06 23:33

我不明白耶
你有QQ么？

#13

jetyao2010-10-06 23:41

行了
谢谢你

#14

lele20072010-10-06 23:47

设置步骤：

只有本站会员才能查看附件，请登录

#15

yms1232010-10-07 13:57

LuttClas.SqlLink这个组件安装了?