www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_StatsCode.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="Conn.asp"--> <!--#include file="Ex_Cls/Ex_SkinCls.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> </head> <link rel="stylesheet" href="Admin_Style.css"> <body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor"> <% Dim ExComm Set ExComm=new Ex_CommonCls ExComm.IsAdLogin ExComm.IsIpAllow dim action action=request.QueryString("action") if action="change" then call change()'修改数据 else call show() end if sub show() dim strsql,rs,b strsql="select waithtml from Ex_Config" set rs=Conn.execute(strsql) b=Rs(0) %> <center> <form name="form1" method="post" action="?action=change" onSubmit="return Check()"> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border"> <tr> <th class="topbg" colspan="2"><p><a href="#u"></a>网站统计代码添加</p> </th> </tr> <tr> <td width="185" class="tdbg"><div align="center">网站统计代码:(支持html)</div></td> <td class="tdbg"><textarea name="bottom" cols="60" rows="10" id="bottom"><% If Trim(b)<>"" Then response.write(b) End If %></textarea></td> </tr> <tr> <td class="tdbg" colspan="2"><div align="center"> <input type="submit" name="Submit" value="保存"> </div></td> </tr> </table> </form></center> 提示:请注意清除网站统计代码最后的一些多余回车换行。 <br> <a href="http://www.ex123.net/bbs" target="_blank"><font color="red">如果您网站统计代码还有什么疑问,点此查看易心博客使用教程</font></a> <%end sub%> <% sub change() dim bottom bottom=ExComm.G(request("bottom")) If bottom="" Then bottom=" " End If Conn.execute "update Ex_Config set waithtml='"&bottom&"'" ExComm.ClearCaches(sn) Dim ExSkin Set ExSkin=new Ex_SkinCls ExSkin.RefreshSkinCache Set ExSkin=Nothing ExComm.ShowMsg "操作成功","" end sub %> </body> </html>