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
%>