📄 admin.asp
字号:
tmpstr = tmpstr & "document.write(' </tr>');" & vbCrLf
tmpstr = tmpstr & "document.write('</table>');" & vbCrLf
tmpstr = tmpstr & "var verticalpos=""frombottom""" & vbCrLf
tmpstr = tmpstr & "if (!document.layers)" & vbCrLf
tmpstr = tmpstr & "document.write('</div>')" & vbCrLf
tmpstr = tmpstr & "function JSFX_FloatTopDiv()" & vbCrLf
tmpstr = tmpstr & "{" & vbCrLf
tmpstr = tmpstr & " var jqq_startX = " & startX & ";" & vbCrLf
tmpstr = tmpstr & " var jqq_startY = " & startY & ";" & vbCrLf
tmpstr = tmpstr & " var jqq_ns = (navigator.appName.indexOf(""Netscape"") != -1);" & vbCrLf
tmpstr = tmpstr & " var jqq_d = document;" & vbCrLf
tmpstr = tmpstr & " function jqq_ml(id)" & vbCrLf
tmpstr = tmpstr & " {" & vbCrLf
tmpstr = tmpstr & " var jqq_el=jqq_d.getElementById?jqq_d.getElementById(id):jqq_d.all?jqq_d.all[id]:jqq_d.layers[id];" & vbCrLf
tmpstr = tmpstr & " if(jqq_d.layers)jqq_el.style=jqq_el;" & vbCrLf
tmpstr = tmpstr & " jqq_el.sP=function(x,y){this.style.left=x;this.style.top=y;};" & vbCrLf
tmpstr = tmpstr & " jqq_el.x = jqq_startX;" & vbCrLf
tmpstr = tmpstr & " if (verticalpos==""fromtop"")" & vbCrLf
tmpstr = tmpstr & " jqq_el.y = jqq_startY;" & vbCrLf
tmpstr = tmpstr & " else{" & vbCrLf
tmpstr = tmpstr & " jqq_el.y = jqq_ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;" & vbCrLf
tmpstr = tmpstr & " jqq_el.y -= jqq_startY;" & vbCrLf
tmpstr = tmpstr & " }" & vbCrLf
tmpstr = tmpstr & " return jqq_el;" & vbCrLf
tmpstr = tmpstr & " }" & vbCrLf
tmpstr = tmpstr & " window.stayTopLeft=function()" & vbCrLf
tmpstr = tmpstr & " {" & vbCrLf
tmpstr = tmpstr & " if (verticalpos==""fromtop""){" & vbCrLf
tmpstr = tmpstr & " var jqq_pY = jqq_ns ? pageYOffset : document.body.scrollTop;" & vbCrLf
tmpstr = tmpstr & " jqq_ftlObj.y += (jqq_pY + jqq_startY - jqq_ftlObj.y)/8;" & vbCrLf
tmpstr = tmpstr & " }" & vbCrLf
tmpstr = tmpstr & " else{" & vbCrLf
tmpstr = tmpstr & " var jqq_pY = jqq_ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;" & vbCrLf
tmpstr = tmpstr & " jqq_ftlObj.y += (jqq_pY - jqq_startY - jqq_ftlObj.y)/8;" & vbCrLf
tmpstr = tmpstr & " }" & vbCrLf
tmpstr = tmpstr & " jqq_ftlObj.sP(jqq_ftlObj.x, jqq_ftlObj.y);" & vbCrLf
tmpstr = tmpstr & " setTimeout(""stayTopLeft()"", 10);" & vbCrLf
tmpstr = tmpstr & " }" & vbCrLf
tmpstr = tmpstr & " jqq_ftlObj = jqq_ml(""divStayTopLeft"");" & vbCrLf
tmpstr = tmpstr & " stayTopLeft();" & vbCrLf
tmpstr = tmpstr & "}" & vbCrLf
tmpstr = tmpstr & "JSFX_FloatTopDiv();" & vbCrLf
Call fso_write("bottom.js", tmpstr)
Call client_alert("新的JS文件已经创建成功!", "?type=manage")
End Sub
Select Case request.querystring("act")
Case "login"
Call login
Case "cjs"
Call cklogin: Call create_js
Case "editsiteinfo"
Call cklogin: Call editsiteinfo
Case "add"
Call cklogin: Call addinfo
Case "edit"
Call cklogin: Call editinfo
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;}
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>
</head>
<body>
<%
Sub nlogin()
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<form method="post" action="?act=login">
<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>
</form>
</table>
<%
End Sub
Sub slist()
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500">
<fieldset align="center">
<legend>通用网站在线咨询JQQonline插件</legend>
<%
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
%>
<form method="post" action="?type=manage&act=editsiteinfo">
<table border="0" width="500">
<tr>
<td width="500" height="25"> 参数设置</td>
</tr>
<tr>
<td width="500" height="25"> 位置：<input type="radio" name="sitearea" value="0"<%if infoobjNodes.childNodes(4).text="0" then response.write " checked"%>> 居左 <input type="radio" name="sitearea" value="1"<%if infoobjNodes.childNodes(4).text="1" then response.write " checked"%>> 居右</td>
</tr>
<tr>
<td width="500" height="25"> 网站名：<input type="text" name="sitename" size="15" value="<%=infoobjNodes.childNodes(0).text%>"> 使用皮肤：<input type="text" name="siteskin" size="5" value="<%=infoobjNodes.childNodes(1).text%>"></td>
</tr>
<tr>
<td width="500" height="25"> 显示界面X坐标：<input type="text" name="siteshowx" size="10" value="<%=infoobjNodes.childNodes(2).text%>"> Y坐标：<input type="text" name="siteshowy" size="10" value="<%=infoobjNodes.childNodes(3).text%>"> <input type="submit" name="submit" value="参数修改"></td>
</tr>
<tr>
<td width="500" height="10"></td>
</tr>
</table>
</form>
<%
Set infoobjNodes = Nothing
Set infoobjXML = Nothing
Else
Call client_alert("Xml文件 未成功打开!", "?type=manage")
End If
%>
<table border="0" width="500">
<tr>
<td width="180" height="25"> QQ号</td>
<td width="180" height="25"> 描述</td>
<td width="80" height="25"> 头像</td>
<td width="30" align="center" height="25">编辑</td>
<td width="30" align="center" height="25">删除</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>
<td width="180" height="25"> <%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%></td>
<td width="180" height="25"> <%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></td>
<td width="80" height="25"> <img src="images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_m.gif" border="0"></td>
<td width="30" align="center" height="25"><a href="?type=manage&mtype=edit&id=<%=objRootsite.childNodes.item(iCount).childNodes.item(4).text%>">编辑</a></td>
<td width="30" align="center" height="25"><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
%>
<tr>
<td height="25" colspan="5" align="right"><input type="button" value="生成新的JS文件" onclick="location.href='?type=manage&act=cjs'"> </td>
</tr>
</table>
<form method="post" action="?type=manage&act=add">
<table border="0" width="500">
<tr>
<td width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="25"> 添加新的QQ号</td>
</tr>
<tr>
<td width="500" height="25"> QQ号：<input type="text" name="qq" size="20"></td>
</tr>
<tr>
<td width="500" height="25"> 描述：<input type="text" name="dis" size="25"></td>
</tr>
<tr>
<td width="500" height="25"> 颜色：<input type="text" name="color" size="25"> 输入颜色代码例如：#000000</td>
</tr>
<tr>
<td width="500" height="25"> 头像：<br>
<%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 width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="25"> <input type="submit" name="submit" value="确定添加"> <input type="reset" name="reset" value="取消重置"></td>
</tr>
<tr>
<td width="500" height="10"></td>
</tr>
</table>
</form>
</fieldset>
</td>
</tr>
</table>
<%
End Sub
Sub neditinfo()
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500">
<fieldset align="center">
<legend>编辑QQ信息</legend>
<%
Dim neditid: neditid = request.querystring("id")
If Not IsNumeric(neditid) Or neditid = "" Then
Call client_alert("ID号必须是数字!", -1)
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 border="0" width="500">
<tr>
<td width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="25"> 修改指定的QQ信息</td>
</tr>
<tr>
<td width="500" height="25"> QQ号：<input type="text" name="qq" size="20" value="<%=objNodes.childNodes(0).text%>"></td>
</tr>
<tr>
<td width="500" height="25"> 描述：<input type="text" name="dis" size="25" value="<%=objNodes.childNodes(1).text%>"> </td>
</tr>
<tr>
<td width="500" height="25"> 颜色：<input type="text" name="color" size="25" value="<%=objNodes.childNodes(3).text%>"> 输入颜色代码例如：#000000</td>
</tr>
<tr>
<td width="500" height="25"> 头像：<br>
<%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 width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="25"> <input type="submit" name="submit" value="确定修改"> <input type="reset" name="reset" value="取消重置"></td>
</tr>
<tr>
<td width="500" height="10"></td>
</tr>
</table>
</form>
</fieldset>
</td>
</tr>
</table>
<%
Set objNodes = Nothing
Set objXML = Nothing
Else
Call client_alert("发生错误!", -1)
End If
End Sub
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500" height="20"></td>
</tr>
</table>
<%
If request.querystring("type") = "manage" Then
Call cklogin
Select Case request.querystring("mtype")
Case "edit"
Call neditinfo
Case Else
Call slist
End Select
Else
Call nlogin
End If
Dim enddtime: enddtime = Timer()
%>
<table border="0" width="500" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="500" height="10"></td>
</tr>
<tr>
<td width="500" height="20" align="center">通用网站在线咨询JQQonline插件(V4.0) <a href="http://www.jetiben.com" target="_blank">Jetiben.Com</a> 执行时间:<%=FormatNumber((enddtime-starttime)*1000,3)%>毫秒</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -