default.asp

程序介绍： 1、内嵌式投票系统

<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp([e-mail])
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
'程序创建时间：17:39 2001-8-5
'程序完成时间：18:40 2001-8-5
'最后修改时间：23:57 2001-9-10
%>
<!--#include file=base.asp-->
<%
 if session("adminflag")="" then
  if request("action")="login" then
    Call chklogin
  else
    Call login
  end if
 else
  Call welcome
 end if
%>
<!--#include file=end.asp-->

<%Sub login()%>
    <table width=100% cellpadding=6 cellspacing=0 border=0>    
    <form action="default.asp" method="post">
    <input type=hidden name="action" value="login">
    <tr>
    <td bgcolor=#EEEEEE valign=middle colspan=2 align=center><b>请输入您的用户名、密码登陆</b></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle width=40% align=right><font color=#555555>请输入您的用户名</font></td>
    <td bgcolor=#FFFFFF valign=middle><input type=text name="name"></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle width=40% align=right><font color=#555555>请输入您的密码</font></td>
    <td bgcolor=#FFFFFF valign=middle><input type=password name="password"></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle colspan=2 align=center><input type=submit name="submit" value="登 陆"> <a href=register.asp>注册</a><script language=javascript src="../count.asp?id=9"></script></td></tr></form>
    </table>
<%End Sub

Sub chklogin()
dim name
dim password

name=replace(trim(request("name")),"'","")
password=replace(trim(Request("password")),"'","")

if name="" then
OutMsg=OutMsg+"<br>"+"<li>请输入管理员名称。"
founderr=true
end if
if password="" then
OutMsg=OutMsg+"<br>"+"<li>请输入管理员密码。"
founderr=true
end if
if founderr=true then Call PrintMsg(OutMsg)
rSub.open "select * from admin where password='"&password&"' and name='"&name&"'",conn,1,3
 if not(rSub.bof and rSub.eof) then
'  rSub("logins)=rSub("logins)+1
  rSub("lastdate")=now()
  rSub.update
  session("adminflag")=rSub("adminflag")
  session("name")=rSub("name")
  session("userid")=rSub("id")
  rSub.close
  Call welcome
 else
  rSub.close
  PrintMsg("<li>错误的管理员用户名密码。")
 end if
End Sub

Sub welcome()
%>
<table width=100% cellpadding=6 cellspacing=0 border=0>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center>
<font color=#333333><b>欢迎 <%=session("name")%></b></font>
</td></tr>
<tr><td bgcolor=#FFFFFF>
</td>
</tr>

<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<center><br>
服务器时间：<b><%=now%></b><br>
</center>
<hr>
<p>
<b>你的状态：</b>
<%if session("adminflag")=1 then%>
站长<br><br>
<br><b>你可以进行的操作：</b><br>
<br>所有操作
<%elseif session("adminflag")=2 then%>
副站长<br><br>
<br><b>你可以进行的操作：</b><br>
<br>除站长设置外的所有操作
<%elseif session("adminflag")=3 then%>
管理员<br><br>
<br><b>你可以进行的操作：</b><br>
<br>修改个人资料
<br>添加文章，修改删除自己添加的文章
<br>添加下载，修改删除自己添加的下载
<br>查看统计结果
<%else%>
用户<br><br>
<br><b>你可以进行的操作：</b><br>
<br>修改个人资料
<br>添加文章（需副站长或站长审核）、修改删除自己添加的文章
<br>添加下载（需副站长或站长审核）、修改删除自己添加的下载
<br>查看统计结果
<%end if%>
<br><br><hr>
软件名称：TXSite （通用网站系统）<BR>
程序制作：<a href="mailto:[e-mail]">milp</a><BR>
版权所有：<a href="http://www.21tx.com/">源码之家</a><BR>
技术支持：<a href="http://www.21tx.com/bbs">源码之家论坛</a>
</td></tr></table>
<%End Sub

Sub severinfo()
%>
    <table width=100% cellpadding=6 cellspacing=0 border=0>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center>
<font color=#333333><b>欢迎 <%=session("name")%></b></font>
</td></tr>
<tr><td bgcolor=#FFFFFF>
</td>
</tr>

<tr>
<td bgcolor=#FFFFFF valign=middle align=left>
<center><br>
服务器时间：<b><%=now%></b><br>
</center>
<hr>
<p>
<b>服务器有关的变量</b><br><br><br>
<br>绝对路径：<%=request.ServerVariables("PATH_TRANSLATED")%>
<br>用户IP地址：<%=request.ServerVariables("REMOTE_ADDR")%>
<br>服务器的主机名，DNS别名，或IP地址：<%=request.ServerVariables("SERVER_NAME")%>
<br>服务器处理请求的端口：<%=request.ServerVariables("SERVER_PORT")%>
<br>请求协议的名称和版本：<%=request.ServerVariables("SERVER_PROTOCOL")%>
<br>HTTP服务器的名称和版本：<%=request.ServerVariables("SERVER_SOFTWARE")%>
<br><br>
<br>HTTP_ACCEPT_LANGUAGE：<%=request.ServerVariables("HTTP_ACCEPT_LANGUAGE")%>
<br>HTTP_USER_AGENT：<%=request.ServerVariables("HTTP_USER_AGENT")%>
<br>HTTP_REFERER：<%=request.ServerVariables("HTTP_REFERER")%>
</td></tr></table>
<%End Sub%>