www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Admin_Manage_Do.asp
<% '乘风网站推广系统 Access版 '作者QQ:178575 '作者EMail:yliangcf@163.com '作者网站:http://www.qqcf.com '详细简介:http://www.qqcf.com/?action=list&list=cfwztg '上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容 '因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看 %> <% If Action="usergo" Then UserName=ChkStr(Request("UserName"),1) Session("CFWztgUser")=UserName Response.Cookies("CFWztgUserCookie")="" Response.Cookies("CFWztgUserCookie").Expires=Dateadd("n",-60,Now()) Response.Redirect("Manage.asp") End If '转到用户页 If Action="adusergo" Then AdUserName=ChkStr(Request("AdUserName"),1) Session("CFWztgAdUser")=AdUserName Response.Cookies("CFWztgAdUserCookie")="" Response.Cookies("CFWztgAdUserCookie").Expires=Dateadd("n",-60,Now()) Response.Redirect("AdUser_Manage.asp") End If '转到广告商页 If Action="apprenew" Then AppName = ChkStr(Request("AppName"),1) MyArray = Split(AppName, ",") For I = 0 To UBound(MyArray) Application(MyArray(I)) = Empty '清空设置缓存 Next Response.end End If If Action="sqlexesave" Then If AdminOnlineExecSql=0 Then Call AlertBack("Conn.asp里设置了系统禁止在线执行Sql语句",1) Pwd=GoBack(ChkStr(Trim(Request("Pwd")),1),"请输入确认密码") Set Rs= Server.CreateObject("Adodb.RecordSet") Sql="Select Pwd From CFWztg_Admin" Rs.Open Sql,Conn,3,2 If Md5(Pwd,1)<>Rs("Pwd") Then Call AlertBack("确认密码输入有错误",1) Sql = Request.Form("Sql") Conn.Execute(Sql) Call AlertBack("执行成功",1) End If If Action="adminlogout" Then Session("CFWztgAdmin")="" Response.Cookies("CFWztgAdminCookie")="" Response.Redirect("Admin.asp") End If %>