webs.asp

还有一些

<%
countuser=""
<!-- 定义变量 -->
dim whead,wcopy,wlog,added

<!-- 读出webs数据表 -->
set rs=conn.execute("select * from webs where id=true")
wcopy=rs("copy")
rs.close
set rs=nothing

<!-- 读出admins数据表 -->

name=request.cookies("aname")


<!-- 设定权限 -->
sub war()
if level=1 then
response.write "行政管理员"
elseif level=2 then
response.write "高级管理员"
elseif level=3 then
response.write "新闻录入员"
elseif level=4 then
response.write "普通用户"
end if
end sub



<!-- 读出article数据表 -->
dim nvvnh
sql="select * from article"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
nvvnh=rs.recordcount
rs.close
set rs=nothing
admin="admin"
%>