<%
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"
%>