大虾,帮帮在下!在线等!
我在测试是否与数据库连接上。
这是我的连接文件:
<%
Function openDB()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
ConnString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=olbs;Data Source=sw;PWD=123"
conn.Open ConnString
end function
Function closeDB()
set rs=nothing
conn.close
set conn=nothing
end function
%>
以下是我的二个测试文件:
************************
test.asp
<body>
<form action="test.asp" method="post">
<p><input type="text" name="sw"></p>
<p><input type="submit" value="提交"></p>
</form>
</body>
************************************************
test1.asp
<!--#include file="includes/dbconn.inc"-->
<%
sw=request.Form("sw")
%>
<%=sw%>
<%
call openDB()
sql="select bookname form books where idbook="&sw
set rs=conn.execute(sql)
call closeDB()
%>
**********************************************
错误信息:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/shanwu/design/TMPd76zxxa44z.asp,行9