<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>插入图片</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; FONT-FAMILY:宋体
}
TD {
FONT-SIZE: 12px; FONT-FAMILY:宋体
}
.cmdbtn {
WIDTH: 45px; HEIGHT: 20px
}
.hole {
FONT-SIZE: 10px; WIDTH: 24px; FONT-FAMILY: arial; HEIGHT: 18px; TEXT-ALIGN: right
}
DIV {
CURSOR: default
}
</STYLE>
<%
'call chkconst("Default.asp")'检测盗链
Server.ScriptTimeOut=5000
dim Data_5xsoft
Class upload_5xsoft
dim objForm,objFile,Version
Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function
Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function
Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
Version="化境HTTP上传程序 Version 2.0"
set objForm=Server.CreateObject("Scripting.Dictionary")
set objFile=Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes<1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set Data_5xsoft = Server.CreateObject("adodb.stream")
Data_5xsoft.Type = 1
Data_5xsoft.Mode =3
Data_5xsoft.Open
Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes)
Data_5xsoft.Position=0
RequestData =Data_5xsoft.Read
iFormStart = 1
iFormEnd = LenB(RequestData)
vbCrlf = chrB(13) & chrB(10)
sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)
iStart = LenB (sStart)
iFormStart=iFormStart+iStart+1
while (iFormStart + 10) < iFormEnd
iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3
tStream.Type = 1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iFormStart
Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
tStream.Close
'取得表单项目名称
iFormStart = InStrB(iInfoEnd,RequestData,sStart)
iFindStart = InStr(22,sInfo,"name=""",1)+6
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'如果是文件
if InStr (45,sInfo,"filename=""",1) > 0 then
set theFile=new FileInfo
'取得文件名
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileName=getFileName(sFileName)
theFile.FilePath=getFilePath(sFileName)
'取得文件类型
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileStart =iInfoEnd
theFile.FileSize = iFormStart -iInfoEnd -3
theFile.FormName=sFormName
if not objFile.Exists(sFormName) then
objFile.add sFormName,theFile
end if
else
'如果是表单项目
tStream.Type =1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iInfoEnd
Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sFormValue = tStream.ReadText
tStream.Close
if objForm.Exists(sFormName) then
objForm(sFormName)=objForm(sFormName)&", "&sFormValue
else
objForm.Add sFormName,sFormValue
end if
end if
iFormStart=iFormStart+iStart+1
wend
RequestData=""
set tStream =nothing
End Sub
Private Sub Class_Terminate
if Request.TotalBytes>0 then
objForm.RemoveAll
objFile.RemoveAll
set objForm=nothing
set objFile=nothing
Data_5xsoft.Close
set Data_5xsoft =nothing
end if
End Sub
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function
End Class
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
End Sub
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=true
if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function
''\\\\\\修改 文件 '\0' 检测
if right(trim(fullpath),4)="'\0'" then exit function
''\\\\\\
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=FileStart
Data_5xsoft.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=false
end function
End Class
'判断文件类型是否合格
Private Function CheckFileExt (fileEXT)
dim Forumupload,i
Forumupload="gif,jpg,bmp,jpeg,png"
Forumupload=split(Forumupload,",")
for i=0 to ubound(Forumupload)
if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
CheckFileExt=true
exit Function
else
CheckFileExt=false
end if
next
End Function
dim upload,user,upfiles,rsupfiles
set upload=new upload_5xsoft ''建立上传对象
'user=request.cookies("starline")("user")
upfiles=4
'if request.cookies("starline")("user")="" then
'response.Write("此页面为注册用户页,请注册!")
'response.End()
'end if
sub uploadfileclass() '上传文件子程序
upimgb=upload.form("upimgb")
upimgw=upload.form("upimgw")
upimgh=upload.form("upimgh")
'response.Write(upimgb&"|"&upimgw&"|"&upimgh)
'response.end()
dim lb,file,formName,formPath,iCount,ranNum,fileExt,FileName,rs,Extarry,outcode
set file=upload.file("file1")
if file.FileSize>100000 then '限制图片在100K以内
response.Write("上传文件,超出大小!请重新上传.<a href=? >返回</a>")
exit sub
end if
if file.FileSize>0 then
randomize
Extarry=split(file.FileName,".")
fileExt=Extarry(ubound(Extarry))
ranNum=int(90000*rnd)+10000
nnnNum=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"_"&ranNum
if CheckFileExt(fileExt)=false then
%>
<SCRIPT language="javascript">
window.close();
opener.document.all("cuowu").click();
</script>
<%
exit sub
end if
CheckDir("../../pro_img/"&year(now)&"-"&month(now)&"-"&day(now)&"Editor/")
FileName="../../pro_img/"&year(now)&"-"&month(now)&"-"&day(now)&"Editor/"&nnnNum&"."&fileExt '确定上传目录,上传文件名
file.SaveAs Server.MapPath(FileName)
' response.Write FileName
' response.end()
' outcode=" 上传成功!需要重新上传请[<a href='javascript:window.location.replace("""&imgname&".asp"")' target=main>返回</a>]"
'outcode=outcode&"<script>parent.document.form1.upimgname.value='" &dateName& "';< /script>"
%>
<SCRIPT language="javascript">
opener.document.all("FileName").value="<%=FileName%>";
opener.document.all("upimagebt").click();
window.close();
</script>
<%
else
%>
<SCRIPT language="javascript">
window.close();
alert("请选择图片再传")
</script>
<%
exit sub
end if
response.write(outcode)
set file=nothing
set upload=nothing ''删除此对象
end sub
Public Function CheckDir(ByVal ckDirname)
dim FilePath,Fso
FilePath=Server.Mappath(ckDirname)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(FilePath) Then Fso.CreateFolder (FilePath)
Set Fso = Nothing
End Function
if request.QueryString("action")="upf" then
call uploadfileclass()
else
%>
<SCRIPT language=javascript>
function UrlImgOK(){
var dotable,imgw,imgh
imgw= ""
imgh= ""
if(document.all("imgw").value!=""){
imgw=" width="+document.all("imgw").value
}
if(document.all("imgh").value!=""){
imgh=" height="+document.all("imgh").value
}
dotable="<img src="+url.value+imgw+imgh+" border="+imgb.value+" >"
window.returnValue = dotable;
window.close();
}
function updataImgOK(){
//alert("1212")
var dotable,upimgw,upimgh
upimgw= ""
upimgh= ""
if(document.all("upimgw").value!=""){
upimgw=" width="+document.all("upimgw").value
}
if(document.all("upimgh").value!=""){
upimgh=" height="+document.all("upimgh").value
}
dotable="<img src="+document.all("FileName").value+upimgw+upimgh+" border="+document.all("upimgb").value
dotable=dotable+">"
window.returnValue = dotable;
window.close();
}
function saveupImage(){
document.upf_form.submit();
}
</SCRIPT>
<SCRIPT language=VBScript>
Sub TabStrip_Change()
if (TabStrip.Value = 0) then
Page1.style.visibility = "hidden"
Page0.style.visibility = "visible"
bt1.style.visibility = "hidden"
bt0.style.visibility = "visible"
end if
if (TabStrip.Value = 1) then
Page0.style.visibility = "hidden"
Page1.style.visibility = "visible"
bt0.style.visibility = "hidden"
bt1.style.visibility = "visible"
end if
end sub
</SCRIPT>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY bgColor=buttonface topMargin=5 scroll=no>
<CENTER>
<OBJECT id=TabStrip classid=clsid:eae50eb0-4a62-11ce-bed6-00aa00611080>
<PARAM NAME="ListIndex" VALUE="1">
<PARAM NAME="NewVersion" VALUE="-1">
<PARAM NAME="Size" VALUE="7700;3500">
<PARAM NAME="FontHeight" VALUE="180">
<PARAM NAME="FontName" VALUE="宋体">
<PARAM NAME="Items" VALUE="网络图片;上传图片;">
</OBJECT>
<DIV id=Page0 style="LEFT: 12px; VISIBILITY:hidden; WIDTH: 276px; POSITION: absolute; TOP: 30px; HEIGHT: 134px; TEXT-ALIGN: left">
<TABLE width="261" height="78" border=0 cellPadding=0 cellSpacing=2>
<TBODY>
<TR>
<TD width="80">图片边框：</TD>
<TD width="33"><INPUT name=imgb class=hole id="imgb" onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" value=0 size=2
maxLength=2></TD>
<TD width="140">像素</TD>
</TR>
<TR>
<TD>图片宽：</TD>
<TD><INPUT name=imgw class=hole id="imgw"
onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" size=3
maxLength=3></TD>
<TD>像素</TD>
</TR>
<TR>
<TD>图片高：</TD>
<TD><INPUT name=imgh class=hole id="imgh"
onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" size=3
maxLength=3></TD>
<TD>像素</TD>
</TR>
<TR>
<TD>图片路径：</TD>
<TD colspan="2"><input name="url" type="text" id="url" value="http://" size="25"></TD>
</TR></TBODY></TABLE>
</DIV>
<DIV id=Page1
style="LEFT: 12px; VISIBILITY: visible; WIDTH: 180px; POSITION: absolute; TOP: 30px; HEIGHT: 80px; TEXT-ALIGN: left">
<form name="upf_form" method="post" action="?action=upf&class=<%=request.QueryString("class") %>" enctype="multipart/form-data" target="_blank">
<TABLE width="261" height="78" border=0 cellPadding=0 cellSpacing=2>
<TBODY>
<TR>
<TD width="80">图片边框：</TD>
<TD width="33"><INPUT class=hole
onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"
maxLength="3" size="3" value="0" name="upimgb"></TD>
<TD width="140">像素</TD>
</TR>
<TR>
<TD>图片宽：</TD>
<TD><INPUT class=hole
onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"
maxLength="3" size="3" value="" name="upimgw"></TD>
<TD>像素</TD>
</TR>
<TR>
<TD>图片高：</TD>
<TD><INPUT class=hole
onkeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"
maxLength="3" size="3" value="" name="upimgh"></TD>
<TD>像素</TD>
</TR>
<TR>
<TD>上传图片：</TD>
<TD colspan="2"><input name="file1" type="file" size="15" value="上传">
<!--图片返回值-->
<input type=hidden value="" name="upimagebt" id="upimagebt" onClick="updataImgOK();">
<input type=hidden value="11" name="FileName" id="FileName">
<!--图片返回值-->
</TD>
</TR></TBODY></TABLE>
</form>
</DIV>
<DIV id="bt0" style="LEFT: 41px; WIDTH: 170px;VISIBILITY: hidden;POSITION: absolute; TOP: 140px; HEIGHT: 80px">
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD align=middle width=50><INPUT ID="wcbutter" class=cmdbtn onclick=UrlImgOK(); type=button value="提交"></TD>
<TD align=middle width=50><INPUT ID="qxbutter" class=cmdbtn onclick=window.close(); type=button value="取消"></TD></TR></TBODY></TABLE>
</DIV>
<DIV id="bt1" style="LEFT: 41px; WIDTH: 170px; POSITION: absolute; TOP: 140px; HEIGHT: 80px">
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD align=middle width=50><INPUT ID="wcbutter" class=cmdbtn onclick=saveupImage(); type=button value="上传"></TD>
<TD align=middle width=50><INPUT ID="qxbutter" class=cmdbtn onclick=window.close(); type=button value="取消"></TD></TR></TBODY></TABLE>
</DIV>
</CENTER>
<SCRIPT>
window.setTimeout('TabStrip.blur()',100);
</SCRIPT>
<INPUT ID="cuowu" class=cmdbtn onclick=cuowu(); type=hidden value="">
<SCRIPT language="javascript">
function cuowu(){
alert("图片太大了！请重新再传")
}
</script>
</BODY></HTML>
<%end if%>
2011-09-19 21:29
