📄 admin.asp
字号:
case "delete" call cklogin():call delinfo()
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JQQonline插件信息管理界面</title>
<style type="text/css">
<!--
body{
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
BACKGROUND:#C7E3FE;
background-color: #FFFFFF;
}
a{font-style:normal;TEXT-DECORATION: none;color:#000000;}
a:hover{font-style:normal;TEXT-DECORATION: none;color:#F4F4F4;}
a:active{font-style:normal;TEXT-DECORATION: none;color:#000000;}
table{font-size: 9pt;font-family: tahoma;color:#000000;}
-->
</style>
<link href="../admin/admincss.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
-->
</style>
</head>
<body>
<%
sub nlogin()
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500" height="20"></td>
</tr>
</table>
<form method="post" action="?act=login">
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500">
<fieldset align="center">
<legend>管理员登陆</legend>
<table border="0" width="500">
<tr>
<td width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="25"> 管理密码：<input type="password" name="password" size="30"> <input type="submit" name="submit" value="登陆"></td>
</tr>
<tr>
<td width="500" height="20"></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500" height="10"></td>
</tr>
</table>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500" height="20">通用网站在线咨询JQQonline插件 V3.0 <a href="http://www.jetiben.com" target="_blank">Jetiben.Com</a></td>
</tr>
</table>
</form>
<%
end sub
if request.querystring("action")="login" then '设置登陆方式，该模式为在文件名后输入?action=login进入登陆页面
call nlogin()
response.write "</body>"
response.write "</html>"
response.end
end if
sub slist()
%>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td width="100%" align="center">
<%
Dim infostrSourceFile,infoobjXML
infostrSourceFile=Server.MapPath("xml/info.xml")
Set infoobjXML=Server.CreateObject("Microsoft.XMLDOM")
infoobjXML.load(infostrSourceFile)
Dim infoobjNodes
Set infoobjNodes=infoobjXML.selectSingleNode("xml/qqinfo/qqset[siteid ='1']")
If Not IsNull(infoobjNodes) then
%>
<%
Else
%>
<script language="javascript">
alert("Xml 未成功打开！")
history.back()
</script>
<%
response.end
End If
Set infoobjNodes=nothing
Set infoobjXML=nothing
%>
<table width="96%" border="0" cellpadding="3" cellspacing="1" bgcolor="#f2f2f2">
<tr bgcolor="#F7F7F7">
<td width="35%" height="25"> QQ号</td>
<td width="35%" height="25"> 描述</td>
<td width="15%" height="25"> 头像</td>
<td width="6%" height="25" align="center">编辑</td>
<td width="9%" height="25" align="center">删除</td>
</tr>
<%
Dim strSourceFile,objXML,objRootsite,AllNodesNum
strSourceFile=Server.MapPath("xml/qq.xml")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("qqlist")
AllNodesNum=objRootsite.childNodes.length-1
Dim iCount
For iCount=0 to AllNodesNum
%>
<tr bgcolor="#FFFFFF">
<td width="35%" height="25"> <%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%></td>
<td width="35%" height="25"> <%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></td>
<td width="15%" height="25"> <img src="images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_m.gif" border="0"></td>
<td width="6%" height="25" align="center"><a href="?type=manage&mtype=edit&id=<%=objRootsite.childNodes.item(iCount).childNodes.item(4).text%>">编辑</a></td>
<td width="9%" height="25" align="center"><a href="?type=manage&act=delete&id=<%=objRootsite.childNodes.item(iCount).childNodes.item(4).text%>">删除</a></td>
</tr>
<%
Next
Set objRootsite=nothing
Set objXML=nothing
%>
</table>
<form method="post" action="?type=manage&act=add">
<table width="96%" border="0" cellpadding="3" cellspacing="1" bgcolor="#f2f2f2">
<tr>
<td width="14%" height="25" align="right" bgcolor="#F7F7F7"> QQ号： </td>
<td width="86%" bgcolor="#FFFFFF"><input type="text" name="qq" size="20"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#F7F7F7"> 描述： </td>
<td height="25" bgcolor="#FFFFFF"><input type="text" name="dis" size="25"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#F7F7F7"> 颜色： </td>
<td height="25" bgcolor="#FFFFFF"><input type="text" name="color" size="25">
输入颜色代码例如：#000000</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right" bgcolor="#F7F7F7"> 头像：</td>
<td height="25"><%dim fcount:for fcount=1 to 100%>
<input type="radio" name="face" value="<%=fcount%>"><img src="images/qqface/<%=fcount%>_m.gif" border="0">
<%next%> </td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td height="25" colspan="2">
<input type="submit" name="submit" value="确定添加"> <input type="reset" name="reset" value="取消重置"></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
</table>
</form>
</fieldset>
</td>
</tr>
</table>
<%
end sub
sub neditinfo()
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#F7F7F7">
<tr>
<td>
<%
dim neditid:neditid=request.querystring("id")
if not IsNumeric(neditid) or neditid="" then
%>
<script language="javascript">
alert("非法操作！")
history.back()
</script>
<%
response.end
else
neditid=clng(neditid)
end if
Dim strSourceFile,objXML
strSourceFile=Server.MapPath("xml/qq.xml")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Dim objNodes
Set objNodes=objXML.selectSingleNode("xml/qqlist/qq[id ='"&neditid&"']")
If Not IsNull(objNodes) then
%>
<form method="post" action="?type=manage&act=edit&id=<%=neditid%>">
<table width="96%" border="0" align="center">
<tr>
<td width="15%" height="25" align="right"> QQ号： </td>
<td width="90%" bgcolor="#FFFFFF"><input type="text" name="qq" size="20" value="<%=objNodes.childNodes(0).text%>"></td>
</tr>
<tr>
<td height="25" align="right"> 描述： </td>
<td height="25" bgcolor="#FFFFFF"><input type="text" name="dis" size="25" value="<%=objNodes.childNodes(1).text%>"></td>
</tr>
<tr>
<td height="25" align="right"> 颜色： </td>
<td height="25" bgcolor="#FFFFFF"><input type="text" name="color" size="25" value="<%=objNodes.childNodes(3).text%>">
输入颜色代码例如：#000000</td>
</tr>
<tr>
<td height="25" align="right"> 头像：</td>
<td height="25" bgcolor="#FFFFFF"><%dim fcount:for fcount=1 to 100%>
<input type="radio" name="face" value="<%=fcount%>"<%if objNodes.childNodes(2).text=cstr(fcount) then response.write" checked"%>><img src="images/qqface/<%=fcount%>_m.gif" border="0">
<%next%> </td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td height="25" colspan="2">
<input type="submit" name="submit" value="确定修改"> <input type="reset" name="reset" value="取消重置"></td>
</tr>
</table>
</form>
</fieldset>
</td>
</tr>
</table>
<%
else
%>
<script language="javascript">
alert("发生错误！")
history.back()
</script>
<%
end if
Set objNodes=nothing
Set objXML=nothing
end sub
if request.querystring("type")="manage" then
%>
<%
call cklogin()
select case request.querystring("mtype")
case "edit" call neditinfo()
case else call slist()
end select
dim enddtime:enddtime=timer()
%>
<%
else
response.clear
response.redirect "/"
response.end
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -