admin_qq.asp

某镇信息自动化源程序

sub slist()
%>
<table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#344B6B'><tr><td colspan='2' bgcolor=ffffff>
  <table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>在线客服</font></td></tr></table>
    <fieldset align="center" bgcolor="#ffffff">
    <legend bgcolor="#ffffff">———————<font color="red">应先在[基本设置]页中选择“多QQ客服系统”,本功能才启动</font></legend>
<%
Dim infostrSourceFile,infoobjXML
infostrSourceFile=Server.MapPath("../qq/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' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>   
   <tr bgcolor='#A1BBE0' class='td4'>
     <td  height="25" colspan="2" align="center">&nbsp;参数设置</td>
   </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;网站名：</td><td width="400"><input type="text" name="sitename" size="30" value="<%=infoobjNodes.childNodes(0).text%>">
       </td>
     </tr>     
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;使用皮肤：</td><td width="400"><input type="text" name="siteskin" size="30" value="<%=infoobjNodes.childNodes(1).text%>">
        </td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;显示界面X坐标：</td><td width="400"><input type="text" name="siteshowx" size="30" value="<%=infoobjNodes.childNodes(2).text%>"></td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;显示界面Y坐标：</td><td width="400"><input type="text" name="siteshowy" size="30" value="<%=infoobjNodes.childNodes(3).text%>"></td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;阿里巴巴贸易通:</td><td width="400"><input type="text" name="sitemyt" size="30" value="<%=infoobjNodes.childNodes(4).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;MSN:</td><td width="400"><input type="text" name="sitemsn" size="30" value="<%=infoobjNodes.childNodes(5).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;skype:</td><td width="400"><input type="text" name="siteskype" size="30" value="<%=infoobjNodes.childNodes(6).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>   
         <td width="100" height="25">&nbsp;旺旺：</td><td width="400"><input type="text" name="siteww" size="30" value="<%=infoobjNodes.childNodes(7).text%>">(留空前台不显示)</td>
     </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;联系电话一:</td><td width="400"><input type="text" name="sitetel1" size="30" value="<%=infoobjNodes.childNodes(8).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;联系电话二:</td><td width="400"><input type="text" name="sitetel2" size="30" value="<%=infoobjNodes.childNodes(9).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;联系传真:</td><td width="400"><input type="text" name="sitefax" size="30" value="<%=infoobjNodes.childNodes(10).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;联系email:</td><td width="400"><input type="text" name="siteemail" size="30" value="<%=infoobjNodes.childNodes(11).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;邮政编码:</td><td width="400"><input type="text" name="sitepost" size="30" value="<%=infoobjNodes.childNodes(12).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="100" height="25">&nbsp;联系地址:</td><td width="400"><input type="text" name="siteaddress" size="30" value="<%=infoobjNodes.childNodes(13).text%>">(留空前台不显示)</td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>  
        <td width="100" height="25">&nbsp;旺旺说明：</td><td width="400"><br>
         &nbsp;
(由于旺旺在线不支持中文,调用需要把中文进行编码才能行,所以如果你的旺旺号是中文需要到<a href="http://www.taobao.com/help/wangwang/wangwang_0628_12.php" target="_blank"><b>[旺旺在线]</b></a>编码后复制编码填上。比如旺旺号[数据125]编码如下面的红色部分)<br>
&lt;a target="_blank" href="http://amos1.taobao.com/msg.ww?v=2&uid=<FONT color=#ff0000>%E5%95%86%E8%BE%BE%E8%AE%AF%E8%B4%AD%E7%89%A9%E7%B3%BB%E7%BB%9F</font>&s=1" >&lt;img border="0" src="http://amos1.taobao.com/online.ww?v=2&uid=<FONT color=#ff0000>%E5%95%86%E8%BE%BE%E8%AE%AF%E8%B4%AD%E7%89%A9%E7%B3%BB%E7%BB%9F</font>&s=1" alt="点击这里给我发消息" &lt;/a>)
       </td>
</tr>
<tr bgcolor='#115F8F' class='td4'>
  <td width="500" height="10" colspan="2"><input type="submit" name="submit" value="修 改"></td>
</tr>
    </table>
    </form>
<%
Else
%>
<script language="javascript">
alert("Xml 未成功打开！")
history.back()
</script>
<%
response.end
End If
Set infoobjNodes=nothing
Set infoobjXML=nothing
%>
 <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>   
   <tr bgcolor='#A1BBE0' class='td4'>
        <td width="180" height="25">&nbsp;QQ号</td>
        <td width="180" height="25">&nbsp;描述</td>
        <td width="80" height="25">&nbsp;头像</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("../qq/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' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="180" height="25">&nbsp;<%=objRootsite.childNodes.item(iCount).childNodes.item(0).text%></td>
        <td width="180" height="25">&nbsp;<%=objRootsite.childNodes.item(iCount).childNodes.item(1).text%></td>
        <td width="80" height="25">&nbsp;<img src="../qq/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
%>      
    </table>
    <form method="post" action="?type=manage&act=add">
 <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>   
   <tr bgcolor='#A1BBE0' class='td4'>
        <td width="500" height="25">&nbsp;添加新的QQ号</td>
   </tr>     
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;QQ号：<input type="text" name="qq" size="20"></td>
      </tr>     
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;描述：<input type="text" name="dis" size="25"></td>
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;颜色：<input type="text" name="color" size="25"> 输入颜色代码例如：#000000</td>  
      </tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;头像：<br>   
        <%dim fcount:for fcount=1 to 100%>
        <input type="radio" name="face" value="<%=fcount%>"><img src="../qq/images/qqface/<%=fcount%>_m.gif" border="0">                                                      
        <%next%>                                                      
        </td>                                                                           
      </tr>
<tr bgcolor='#115F8F' class='td4'>
        <td width="500" height="25">&nbsp;<input type="submit" name="submit" value="确定添加">&nbsp;<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 width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
 <table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>编辑QQ信息</font></td></tr></table>


   <fieldset align="center">
    <legend></legend>    
<%
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("../qq/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' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
    <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;QQ号：<input type="text" name="qq" size="20" value="<%=objNodes.childNodes(0).text%>"></td>
      </tr>     
    <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;描述：<input type="text" name="dis" size="25" value="<%=objNodes.childNodes(1).text%>"> </td>                                                                         
      </tr>
    <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;颜色：<input type="text" name="color" size="25" value="<%=objNodes.childNodes(3).text%>"> 输入颜色代码例如：#000000</td>  
      </tr>
    <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
        <td width="500" height="25">&nbsp;头像：<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="../qq/images/qqface/<%=fcount%>_m.gif" border="0">                                      
        <%next%>                                      
        </td>                                                                           
      </tr>
    <tr bgcolor='#115F8F' class='td4'>
        <td width="500" height="25">&nbsp;<input type="submit" name="submit" value="确定修改">&nbsp;<input type="reset" name="reset" value="取消重置"></td>
      </tr>
      <tr>
        <td width="500" height="10"></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

%>

<%
select case request.querystring("mtype")
case "edit" call neditinfo()
case else call slist()
end select
%>
</body>
</html>