<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request.QueryString ("id")="" Then ef=True ec="请输入产品ID！" ElseIf not IsNumeric(Request.QueryString ("id")) Then ef=True ec="ID应该是数字！" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_cdn where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and id='"&Request.QueryString ("id")&"'" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsph.Open Sql,conn,1,1 if dsph.Eof then ef=True ec="不存在的虚拟主机！" end if end if If not ef then if not dsph("status")="正常" then ' ef=True ec="必须是处于正常状态的主机才能管理！" end if end if if not ef then session("cdnAUID")=dsph("id") 'if Request.QueryString ("go")="a" then Response.Redirect "/sqladm/selfsqlmodify.asp?id="&dsph("id") if Request.QueryString ("go")="a" then Response.Redirect "/cdnadm/agn-upcdn.asp?id="&dsph("id") if Request.QueryString ("go")="c" then Response.Redirect "/cdnadm/selfcdnmodifyrepay.asp?id="&dsph("id") if Request.QueryString ("go")="d" then Response.Redirect "/cdnadm/selfcdnmodifyup.asp?id="&dsph("id") end if if ef then Response.Redirect "e.asp?e="&ec end if%>