[e-mail]

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<%
call checkadmin("tongji")
if request.form("tongji")<>"" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [YCMS_tongji]"
rs.open sql,conn,1,3
rs("total")=Trim(Request.Form("total"))
rs("today")=Trim(Request.Form("today"))
rs("yesterday")=Trim(Request.Form("yesterday"))
rs("month")=Trim(Request.Form("month"))
rs("bmonth")=Trim(Request.Form("bmonth"))
rs("toponline")=Trim(Request.Form("toponline"))
rs("inputdate")=Trim(Request.Form("inputdate"))
rs.update
rs.close
YCMS_print("<script>alert('鎭