<%@ 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_Email 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("EmailAUID")=dsph("id") if Request.QueryString ("go")="a" then Response.Redirect "/emailadm/selfemailmodify.asp?id="&dsph("id") if Request.QueryString ("go")="c" then Response.Redirect "/emailadm/selfemailmodifyrepay.asp?id="&dsph("id") if Request.QueryString ("go")="d" then Response.Redirect "/emailadm/selfemailmodifyup.asp?id="&dsph("id") if Request.QueryString ("go")="e" then Response.Redirect "/emailadm/handemailsetdomainadmp.asp?id="&dsph("id") end if if ef then Response.Redirect "e.asp?e="&ec end if%>