数据库连接操作不执行,我的代码如下:
<%
dim com,rs,sql,k
com=CheckStr(trim(request( "com ")))
set rs = Server.CreateObject( "ADODB.Recordset ")
sql= "select * from [com] where username= ' "&com& " ' "
rs.open sql,conn,1,3
if rs.eof then
response.write " <script language=JavaScript> " & chr(13) & "alert( '该信息是快速发布信息！没有相关用户资料！ ') </script> "
response.redirect "../ "
response.end
end if
if rs( "vip ") <> "1 " then
response.redirect "comno.asp?com= "&com& " "
end if
rs( "tong ")=rs( "tong ")+1
rs.update
%>
<%dim n,rs0
set rs0=server.createobject( "adodb.recordset ")
set rs0=conn.execute( "select count(id) from [xinxi] where username= ' "&com& " ' ")
n=rs0(0)
rs0.close
%>
先谢谢各位大虾了!!!!!
------解决方案--------------------
rs.open sql,conn,1,3前加个rs.cursorlocation=3 试试
------解决方案--------------------
错误提示啊??!!
------解决方案--------------------
如上．．出错提示发出来看看．．
------解决方案--------------------
晕,刚想说话来着.