📄 admin_qq.asp
字号:
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
%>
<%
Sub slist()
%>
<table cellpadding="2" cellspacing="1" border="0" width="90%" align="center" class="border">
<tr>
<td class="topbg" height="25" align="center" ><strong>网站在线咨询管理</strong></td>
</tr>
<tr>
<td align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="a3">
<tr>
<td >
<%
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 width="100%" border="0" cellpadding="2" cellspacing="1" class="a3">
<tr>
<td height="25" colspan="2" class="Title"> 参数设置</td>
</tr>
<tr>
<td height="25" colspan="2" class="tdbg" > 状态：
<input type="radio" name="qqonline" value="1"<%if infoobjNodes.childNodes(5).text="1" then response.write " checked"%>>
显示 <span style="font-weight: bold"><font color="#FF0000">隐藏在线咨询QQ请在网站配置里修改</font></span></td>
</tr>
<tr>
<td height="25" colspan="2" class="tdbg" > 位置：
<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="207" height="12" class="tdbg" > 网站名：
<input type="text" name="sitename" size="15" value="<%=infoobjNodes.childNodes(0).text%>"></td>
<td rowspan="2" class="tdbg" >系统提供12种模板，您可以在此输入1--12的数字，修改后并<a href="?type=manage&act=cjs">生成新的JS文件</a>观看效果。模板位置：\admin\images\qq\skin</td>
</tr>
<tr>
<td height="12" class="tdbg" > 使用皮肤：
<input type="text" name="siteskin" size="5" value="<%=infoobjNodes.childNodes(1).text%>"></td>
</tr>
<tr>
<td height="25" colspan="2" class="tdbg" > 显示界面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="submit2" value="参数修改"></td>
</tr>
</table>
</form>
<%
Set infoobjNodes = Nothing
Set infoobjXML = Nothing
Else
Call client_alert("Xml文件 未成功打开!", "?type=manage")
End If
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="a3">
<tr>
<td width="180" height="25" class="Title" > QQ号</td>
<td width="180" height="25" class="Title" > 描述</td>
<td width="80" height="25" class="Title" > 头像</td>
<td width="30" height="25" align="center" class="Title" >编辑</td>
<td width="30" height="25" align="center" class="Title" >删除</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" class="tdbg" > <%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%></td>
<td width="180" height="25" class="tdbg" > <%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></td>
<td width="80" height="25" class="tdbg" > <img src="images/qqface/<%=objRootsite.childNodes.item(iCount).childNodes.item(2).text%>_m.gif" border="0"></td>
<td width="30" height="25" align="center" class="tdbg" ><a href="?type=manage&mtype=edit&id=<%=objRootsite.childNodes.item(iCount).childNodes.item(4).text%>">编辑</a></td>
<td width="30" height="25" align="center" class="tdbg" ><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" class="tdbg" ><input name="button" type="button" onClick="location.href='?type=manage&act=cjs'" value="生成新的JS文件">
</td>
</tr>
</table>
<form method="post" action="?type=manage&act=add">
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="a3">
<tr>
<td height="10" ></td>
</tr>
<tr>
<td height="25" class="Title" > 添加新的QQ号</td>
</tr>
<tr>
<td height="25" class="tdbg" > QQ号：
<input type="text" name="qq" size="20"></td>
</tr>
<tr>
<td height="25" class="tdbg" > 描述：
<input type="text" name="dis" size="25"></td>
</tr>
<tr>
<td height="25" class="tdbg" > 颜色：
<input name="color" type="text" value="#000000" size="25">
输入描述文字的颜色代码例如：<span style="color: #FF0000">#000000</span></td>
</tr>
<tr>
<td width="480" height="25" class="tdbg" > 头像：<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 height="25" class="tdbg" >
<input type="submit" name="submit2" value="确定添加">
<input type="reset" name="reset2" value="取消重置"></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table>
<%
End Sub
Sub neditinfo()
%>
<table cellpadding="2" cellspacing="1" border="0" width="90%" align="center" class="border">
<tr>
<td class="topbg" height="25" align="center"><strong>编辑QQ信息</strong></td>
</tr>
<tr>
<td align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="a3">
<tr>
<td >
<%
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 width="100%" border="0" cellpadding="2" cellspacing="1" class="a3">
<tr>
<td height="25" class="Title" > 修改指定的QQ信息</td>
</tr>
<tr>
<td height="25" class="tdbg" > QQ号：
<input type="text" name="qq" size="20" value="<%=objNodes.childNodes(0).text%>"></td>
</tr>
<tr>
<td height="25" class="tdbg" > 描述：
<input type="text" name="dis" size="25" value="<%=objNodes.childNodes(1).text%>"> </td>
</tr>
<tr>
<td height="25" class="tdbg" > 颜色：
<input type="text" name="color" size="25" value="<%=objNodes.childNodes(3).text%>">
输入描述文字的颜色代码例如：<span style="color: #FF0000">#000000</span></td>
</tr>
<tr>
<td width="480" height="25" class="tdbg" > 头像：<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 height="25" class="tdbg" >
<input type="submit" name="submit" value="确定修改">
<input type="reset" name="reset" value="取消重置"></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table>
<%
Set objNodes = Nothing
Set objXML = Nothing
Else
Call client_alert("发生错误!", -1)
End If
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
Else
Call slist
End If
Dim enddtime: enddtime = Timer()
%>
<!-- #include file="Inc/Foot.asp" -->
<%else
response.write "<br>"
response.write ""&chr(-19508)&chr(-12046)&chr(-12620)&chr(-10334)&chr(-19743)&chr(-23636)&chr(60)&chr(97)&chr(32)&chr(104)&chr(114)&chr(101)&chr(102)&chr(61)&chr(34)&chr(46)&chr(46)&chr(47)&chr(97)&chr(100)&chr(109)&chr(105)&chr(110)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&chr(34)&chr(62)&chr(-14357)&chr(-10334)&chr(-19743)&chr(60)&chr(47)&chr(97)&chr(62)&""
response.end%>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -