28,391
社区成员
发帖
与我相关
我的任务
分享
会员消息盒: <font color="#FF0000"><%=conn.execute("select count(*) from User_The where xin=1")(0)%></font>/
<font color="#FF0000"><%=conn.execute("select count(*) from User_The ")(0)%></font> 条
<% @language=vbscript codepage=936%>
<%
response.buffer=true '启用缓冲处理
dim conn,db
dim connstr
db="/data/*123456.mdb"'数据库链接路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
sub Chkhttp()
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.Charset="utf-8"
response.write("<script>alert('错误:禁止从站点外部提交数据!.')</script>")
response.end
end if
end sub
%>
消息盒:<%=conn.execute("select count(*) from User_The where xin='1'")(0)%>/<%=conn.execute("select count(*) from User_The ")(0)%> 条
这是错的.
消息盒:<%=conn.execute("select count(*) from User_The where xin=1")(0)%>/<%=conn.execute("select count(*) from User_The ")(0)%> 条
<%=conn.execute("select count(*) from User where satae=1")(0)%>
这个不正常.按道理来说是应该读到同一个库的.
<%=conn.execute("select count(*) from User_The where xin=1")(0)%>