📄 main.asp
字号:
<!--#include file="admin_conn.asp"-->
<%
if session("admin_name")="" then
response.redirect"admin.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理</title>
</head>
<body>
<div align="center">
<!--#include file="menu.asp"-->
<br>
<%
select case request("action")
case "gopage"
call manage()
case "info"
call info()
case "edit_lj"
call edit_lj()
case "manage"
call manage()
case "edit_lj_save"
call edit_lj_save()
case "add_lj"
call add_lj()
case "add_lj_save"
call add_lj_save()
case "view"
call view()
case "edit_pwd"
call edit_pwd()
case "edit_pwd_save"
call edit_pwd_save()
case "del"
call del()
end select
sub add_lj_save()
name=request.Form("name")
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from linker where name='"&name&"'"
rs1.open sql1,conn,1,3
if rs1.eof and rs1.bof then
sql="select * from linker"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("link")=request.Form("link")
rs("name")=request.Form("name")
rs("logo")=request.Form("logo")
rs.update
rs.close
set rs=nothing
response.write "<br><br><br><br><br><center><font color=red>恭喜你！你已经成功添加网站！！"
else
response.write "<br><br><br><br><br><center><font color=red>对不起，该网站已经存在！请正确输入网站名称！</font><br><br><a href='?action=add_lj'>返回重填</a></center>"
response.end
end if
rs1.close
set rs1=nothing
end sub
sub edit_pwd_save()
admin=trim(request.form("name"))
pwd=trim(request.form("pwd"))
pwd2=trim(request.form("pwd2"))
if admin="" or pwd="" then
response.write"<script language='javascript'>alert('用户名和密码不能为空！');location.href('?action=edit_pwd');</script>"
end if
if pwd2<>pwd then
response.write"<script language='javascript'>alert('两次密码不一致！');location.href('?action=edit_pwd');</script>"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id=1"
rs.open sql,conn,3,2
rs("adminname")=admin
rs("adminpwd")=pwd
rs.update
rs.close
set rs=nothing
response.write"<script language='javascript'>alert('修改成功！');location.href('?action=info');</script>"
end sub
sub edit_lj_save()
name=trim(request.form("name"))
link=trim(request.form("link"))
logo=trim(request.form("logo"))
set rs=server.createobject("adodb.recordset")
sql="select * from linker where messageid="&request("messageid")&""
rs.open sql,conn,3,2
rs("name")=name
rs("link")=link
rs("logo")=logo
rs.update
rs.close
set rs=nothing
response.write"<script language='javascript'>alert('修改成功！');location.href('?action=manage');</script>"
end sub
sub del()
set rs=server.CreateObject("adodb.recordset")
sql="select * from linker where messageid="&request("messageid")&""
rs.open sql,conn,3,2
rs.delete
rs.close
set rs=nothing
response.write"<script language='javascript'>alert('删除成功！');location.href('?action=manage');</script>"
end sub
%>
<% sub info() %>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff">
<tr>
<td><table width="100%" border="0" cellpadding=2 cellspacing=2 class="k1" style="border-collapse: collapse">
<tr align="center" bgcolor="#3399CC" class="fontmenu2">
<td height=25 colspan="2">服务器参数</td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td width="18%" height=25 bgcolor="#66CCFF" class="fonthei"> 服务器名：</td>
<td width='82%' bgcolor="#006699"> <%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器IP：</td>
<td bgcolor="#006699"> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器端口：</td>
<td bgcolor="#006699"> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器时间：</td>
<td bgcolor="#006699"> <%=now%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> IIS版本：</td>
<td bgcolor="#006699"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器操作系统：</td>
<td bgcolor="#006699"> <%=Request.ServerVariables("OS")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 脚本超时时间：</td>
<td bgcolor="#006699"> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 站点物理路径：</td>
<td bgcolor="#006699"> <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器CPU数量：</td>
<td bgcolor="#006699"> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 服务器解译引擎：</td>
<td bgcolor="#006699"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 本文件路径：</td>
<td bgcolor="#006699"><%bwjlj=Request.ServerVariables("PATH_TRANSLATED")%> <%= Replace(bwjlj, "\", "/") %></td>
</tr>
<tr bgcolor="#eeeeee" class="fontmenu2">
<td height=25 bgcolor="#66CCFF" class="fonthei"> 文件夹大小：</td>
<td bgcolor="#006699">
<%If IsObjInstalled("Scripting.FileSystemObject") = False Then%>
此功能要求服务器支持文件系统对象（FSO），而你当前的服务器不支持！
<%else
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set ff = fso1.GetFolder(server.MapPath("./"))
%>
<%= Replace(ff, "\", "/") %> 此目录下共
<%
size=ff.size
showsize=round(size,2) & " Byte"
if size>1024 then
size=(Size/1024)
showsize=round(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=Round(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=Round(size,2) & " GB"
end if
set fso1=nothing
%>
<%=showsize%>
<% End If %>
</td>
</tr>
</table></td>
</tr>
</table>
<br>
<% end sub %>
<% sub manage() %>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff">
<tr>
<td><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr align="center" bgcolor="#3399CC">
<td height="25" colspan="5">友情链接管理 <a href="?action=add_lj">添加</a></td>
</tr>
<tr align="center" bgcolor="#006699">
<td width="10%" height="25">ID</td>
<td width="20%">名字</td>
<td width="30%">网址</td>
<td width="30%">图标</td>
<td width="10%">操作</td>
</tr>
<%
sql="select * from linker order by messageid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=10
dim page
page=request("page")
if request("action")="gopage" then
page=request("gopage")
end if
if page<>"" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
if rs.eof then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -