asp的數據庫問題，困我兩星期的問題，請幫忙解決 謝謝！
困我兩星期的問題
原代碼：
<%
set ps=server.CreateObject( "adodb.recordset ")
ql= "select * from db_people where username= ' "&session( "adminname ")& " ' "
ps.open ql,conn,1,1
function case1
if ps( "shenhe ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case2
if ps( "huiyi ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠);location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case3
if ps( "gonggong ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case4
if ps( "geren ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case5
if ps( "huibao ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case6
if ps( "caigoushen ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case7
if ps( "caigou ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case8
if ps( "kucun ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case9
if ps( "shangbao ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case10
if ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
function case11
if ps( "renshi ")=1 or ps( "chaoji ")=1 then
response.Write( " ")
else
response.Write( " <script language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end if
end function
%>
誤提示：
錯誤類型：
ADODB.Recordset (0x800A0BB9)
引數可能有類型錯誤，或超過可接受的定義範圍，或與其他引數衝突。
/inc/yan.asp, line 4
瀏覽器類型：
請幫忙解決
[解决办法]
连接上数据库了吗?
[解决办法]
ps.open ql,conn,1,1 conn，连接数据库问题
[解决办法]
去这看看
你应该就明白了
http://bbs.pigcode.com/index.asp?boardid=2