28,406
社区成员
发帖
与我相关
我的任务
分享Microsoft VBScript 运行时错误 错误 '800a000d' 请大侠们指点啊
我的程序报下面的错误
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'createconn'
/lianjie.asp，行11
代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<% show_m()%>
<select name="select" onchange="window.open(this.value)" class=selecetzi style="WIDTH: 135px">
<option selected>>>高校就业信息网<<</option>
<%
'=========================================================
sub show_m()
sql="select * from m_table"
set rs=createconn(sql)
while not rs.eof
str="<option value="&rs("m_memo")& ">" & rs("m_name") & "</option><br>" & str
rs.movenext
wend
rs.close
response.Write(str)
end sub
'response.Write("<option >aaaaaaaaa</option><option >bbbb</option>")
'============================================
%>
</select>
请大侠们赐教呀
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'createconn'
/lianjie.asp，行11
代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<% show_m()%>
<select name="select" onchange="window.open(this.value)" class=selecetzi style="WIDTH: 135px">
<option selected>>>高校就业信息网<<</option>
<%
'=========================================================
sub show_m()
sql="select * from m_table"
set rs=createconn(sql)
while not rs.eof
str="<option value="&rs("m_memo")& ">" & rs("m_name") & "</option><br>" & str
rs.movenext
wend
rs.close
response.Write(str)
end sub
'response.Write("<option >aaaaaaaaa</option><option >bbbb</option>")
'============================================
%>
</select>
请大侠们赐教呀
...全文
请发表友善的回复…
发表回复
dh20156 2005-11-05
- 打赏
- 举报
很明显，你用createconn(sql)是想执行sql语句，所以你要连接数据库，参考：
private sub createconn(sql)
dim dsn,conn
dsn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("???.mdb")&";pwd=你的数据库密码"'这段用与ACCESS数据库
'dsn = "Driver=SQL Server;Server=你的数据库服务器;UID=连接数据库的用户名;password=你的数据库密码;DATABASE=你的数据库名" 这段用于SQL数据库
conn.open dsn
conn.execute(sql)
end sub
private sub createconn(sql)
dim dsn,conn
dsn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("???.mdb")&";pwd=你的数据库密码"'这段用与ACCESS数据库
'dsn = "Driver=SQL Server;Server=你的数据库服务器;UID=连接数据库的用户名;password=你的数据库密码;DATABASE=你的数据库名" 这段用于SQL数据库
conn.open dsn
conn.execute(sql)
end sub
huangyq_002 2005-11-05
- 打赏
- 举报
好料 谢谢风之石
huangyq_002 2005-11-05
- 打赏
- 举报
我是个菜鸟 好象是没有定义吧 请问怎么定义啊
dh20156 2005-11-05
- 打赏
- 举报
createconn函数定义了么？
