vb6封装的asp代码本地运行正常,在服务器上运行错误,何解?

[aykkk]

本地电脑和服务器电脑都是win2008r2,数据库是sql2008r2,
用vb6封装的代码如下(编译成了一个dll)
Option Explicit

Private myscriptingcontext As ScriptingContext
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private myserver As Server
Private mysession As Session


Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
Set myscriptingcontext = passedscriptingcontext
Set myapplication = myscriptingcontext.Application
Set myrequest = myscriptingcontext.Request
Set myresponse = myscriptingcontext.Response
Set myserver = myscriptingcontext.Server
Set mysession = myscriptingcontext.Session
End Sub


Public Sub onendpage()
Set myscriptingcontext = Nothing
Set myapplication = Nothing
Set myrequest = Nothing
Set myresponse = Nothing
Set myserver = Nothing
Set mysession = Nothing
End Sub


Public Sub welcome()
myresponse.Write ("welcome web2dll")
End Sub


Public Function Connectstring(dataip As String, dataname As String, datauser As String, datapwd As String) As String
Connectstring = "provider=sqloledb;data source=" & dataip & ";initial catalog=" & dataname & ";user id=" & datauser & ";password=" & datapwd & ";"
End Function


Public Function zjmxdqnd(c1 As String, c2 As String, c3 As String, c4 As String, tblpre As String) As String
Dim Cnn As ADODB.Connection
Set Cnn = New ADODB.Connection
Cnn.Open Connectstring(c1, c2, c3, c4)
Dim dqnd As String
dqnd = Cnn.Execute("select f_val from " & tblpre & "LSCONF where f_vkey='zw_kjnd'")(0)
zjmxdqnd = dqnd
zjmxdqnd_Exit:
Set Cnn = Nothing
Exit Function
End Function



建立的asp代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Inc/Conn.asp"-->
<%

cunid="dongfeng"
set rscun1=conn.execute("select * from ituser where uid='"&cunid&"'")
cunname=rscun1("xm")
dataip=rscun1("dataip")
dataname=rscun1("dataname")
datauser=rscun1("datauser")
datapwd=rscun1("datapwd")
tblpre=rscun1("tblpre")
rscun1.close
set rscun1=nothing
Response.Write("cunxm=" & cunname)
Response.Write("<br>")

set webdll= Server.CreateObject("hzz.sz")
webdll.welcome()

dqnd2=webdll.zjmxdqnd(cstr(dataip),cstr(dataname),cstr(datauser),cstr(datapwd),cstr(tblpre))
Response.Write("<br>dqnd2=" & dqnd2)

conn.close
set conn=nothing
set webdll=nothing

%>

上面这个asp代码在我本地电脑上可以正常取到数据,上传到服务器上运行的话,可以执行webdll.welcome(),但是下面的取数就错误了,问题出在什么地方呢?