⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 base.asp

📁 程序介绍： 1、内嵌式投票系统
💻 ASP
字号:
🔍 
<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp(milp@21cn.com)
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
'程序名称：TXSite 管理中心基本程序
'程序作用：连接数据库，显示管理菜单，通用基本输入输出函数和过程
'程序创建时间：15:54 2001-8-4
'程序完成时间：21:19 2001-8-4
'最后修改时间：22:08 2001-9-10

'Option Explicit
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("TXSite.mdb")
const NotAdmin="<li>你没有足够的权限！"
dim rs,rSub,sql,OutMsg,founderr
founderr=false
set rs=server.createobject("adodb.recordset")
set rSub=server.createobject("adodb.recordset")
%>
    <html>
    <head>
    <title>TXSite - 管理中心</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <style type="text/css">
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4			}
		BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
    </style>
    </head>
    <body onkeydown="if(event.keyCode==13 &amp;&amp; event.ctrlKey)txForm.submit()" bgcolor="#555555" alink="#333333" vlink="#333333" link="#333333" topmargin=5 leftmargin=5>
    <table width=95% cellpadding=0 cellspacing=1 border=0 bgcolor=#000000 align=center>
    <tr><td>
    <table width=100% cellpadding=0 cellspacing=1 border=0>
    <tr><td height=26 bgcolor="#333333" colspan=2 align=center><font color=#FFFFFF>
    <b><%=session("name")%> 欢迎您来到 TXSite  管理中心，程序制作 milp，技术支持http://www.21tx.com</b></font>
    </td></tr>
    <tr><td width=20% valign=top bgcolor=#FFFFFF>
    <table width=100% cellpadding=6 cellspacing=0 border=0>
    <tr>
    <td bgcolor="#EEEEEE"><b>管理选项</b>
    </td></tr>
    <tr>
    <td bgcolor="#FFFFFF">
    >> <a href="default.asp">管理首页</a><BR>
    >> <a href="loginout.asp">退出管理</a><BR>
    >> <a href="adminfo.asp">个人资料修改</a><BR>
    </td></tr>
    
    <tr>
    <td bgcolor="#EEEEEE"><b>文章管理</b>
    </td></tr>
    <tr>
    <td bgcolor="#FFFFFF">
    >> <a href="article.asp">添加文章</a><BR>
    >> <a href="article.asp?action=fenye">修改删除文章</a><BR>
    </td></tr>
    
    <tr>
    <td bgcolor="#EEEEEE"><b>下载管理</b>
    </td></tr>
    <tr>
    <td bgcolor="#FFFFFF">
    >> <a href="download.asp">添加下载</a><BR>
    >> <a href="download.asp?action=fenye">修改删除下载</a><BR>
    </td></tr>

    <tr>
    <td bgcolor=#EEEEEE><b>页面统计管理</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF>
    >> <a href="setcount.asp">查看统计结果</a><BR>
    >> <a href="setcount.asp?action=add">添加统计页面</a><BR>
    >> <a href="setcount.asp?action=fenye">修改删除页面</a><BR>
    </td></tr>

    <tr>
    <td bgcolor=#EEEEEE><b>新闻管理</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF>
    >> <a href="setnews.asp">添加新闻</a><BR>
    >> <a href="setnews.asp?action=fenye">修改删除新闻</a><BR>
    </td></tr>

    <tr>
    <td bgcolor=#EEEEEE><b>调查管理</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF>
    >> <a href="setresearch.asp">添加新调查</a><BR>
    >> <a href="setresearch.asp?action=fenye">修改删除调查</a><BR>
    </td></tr>

    <tr>
    <td bgcolor=#EEEEEE><b>友情链接管理</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF>
    >> <a href="setfriend.asp">添加新链接</a><br>
    >> <a href="setfriend.asp?action=fenye">修改删除链接</a><br>
    </td></tr>

    <tr>
    <td bgcolor=#EEEEEE><b>站长设置</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF>
    >> <a href="txfiles.asp?action=head">网站参数设置</a><br>
    >> <a href="setclass.asp?action=update">更新所有菜单</a><br>
    >> <a href="users.asp?action=fenye">管理员管理</a><br>
    >> <a href="setclass.asp">栏目管理</a><br>
    </td></tr>
    
    <tr>
    <td bgcolor=#EEEEEE><b>TXSite信息</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF align=left>
    <span class="large">程序设计：</span><span class="body">milp</span>
    </td></tr></table>
    </td><td width=80% valign=top bgcolor=#FFFFFF>
<%
Sub PrintMsg(OutMsg)%>
    <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=#777777 align=center>
    <tr><td><table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr align="center"><td width="100%" bgcolor=#EEEEEE>TXSite管理中心返回信息</td>
    </tr>
    <tr><td width="100%" bgcolor=#FFFFFF><br><font color=red><%=OutMsg%></font></td>
    </tr>
    <tr align="center"><td width="100%" bgcolor=#EEEEEE><a href="javascript:history.go(-1)"> << 返回</a></td>
    </tr> 
    </table></td></tr></table>
</td></tr></table>
</td></tr></table></body></html>
<%
Response.End
End Sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -