对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。
" ' Response.End 'End If IF Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminID")="" Or Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")="" Then Call AdminAlert("您没有进入本页面的权限，本次操作已被记录！","Admin_Login.asp",0) Response.End ElseIF Request.Cookies("CmsDJ_AdminCooikes")("CD_Login")<>Md5(Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminID")&Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")&Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminPassWord")&Request.Cookies("CmsDJ_AdminCooikes")("CD_Permission")&Request.ServerVariables("REMOTE_ADDR")) Then Call AdminAlert("您没有进入本页面的权限，本次操作已被记录！","Admin_Login.asp",0) Response.End End IF Sub SystemPer(Column) IF Request.Cookies("CmsDJ_AdminCooikes")("CD_Permission")<>"" Then Dim SystemPermission,I,StateOK SystemPermission=Split( Request.Cookies("CmsDJ_AdminCooikes")("CD_Permission"),",") StateOK=False For I=0 To Ubound(SystemPermission) IF Cint(trim(SystemPermission(I)))=Cint(Column) Then StateOK=True Exit For End IF Next IF Not StateOK Then Call AdminAlert("您没有操作本页面的权限，本次操作已被记录！","Admin_Login.asp",0) Response.End End IF Else Call AdminAlert("您没有操作本页面的权限，本次操作已被记录！","Admin_Login.asp",0) Response.End End IF End Sub Sub ADODB_SaveToFile(ByVal strBody,ByVal File) On Error Resume Next Dim objStream,FSFlag,fs,WriteFile FSFlag = 1 If DEF_FSOString <> "" Then Set fs = Server.CreateObject(DEF_FSOString) If Err Then FSFlag = 0 Err.Clear Set fs = Nothing End If Else FSFlag = 0 End If If FSFlag = 1 Then Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True) WriteFile.Write strBody WriteFile.Close Set Fs = Nothing Else Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将inc/config.asp文件内容替换成框中内容" Err.Clear Set objStream = Noting Exit Sub End If With objStream .Type = 2 .Open .Charset = "GB2312" .Position = objStream.Size .WriteText = strBody .SaveToFile Server.MapPath(File),2 .Close End With Set objStream = Nothing End If End Sub %>