UPLOAD.ASP
资源名称:wap.rar [点击查看]
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:5k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <%Server.ScriptTimeOut=100000000%>
- <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
- <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
- <wml><%
- '====================================================================
- ' 请你保留这段说明,这并不会影响你的速度. 电脑交流:http://www.cnscu.cn
- ' 程序制作:横云 掌上校园收倾心整理收集于互联网,感谢你的支持!
- ' 升级时间: 2008-2-5 主页地址:HTTP://wap.cnscu.cn
- ' E-Mail: cnscu@126.com 客服QQ:554904632 QQ群:30493504 QQ群2:46659883
- '====================================================================
- %> <head>
- <meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
- <meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
- <meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
- <meta http-equiv="Expires" content="0" forua="true"/>
- <meta http-equiv="Pragma" content="no-cache" forua="true"/>
- </head>
- <!--#INCLUDE VIRTUAL="/dwap/conn.inc"-->
- <!--#include file=upload_5xsoft_xywap.inc-->
- <%
- Dim const_txl_HomeUrl,errstr,orderto,content
- Dim intro,filename,maxphotoSize,upflag,newphotoid,photoSize,photoFormat
- dim tid
- tid=TRim(Request("tid"))
- if cnscu<>"" then
- %>
- <card id="index" title="文件上传"><p>
- <%
- Sub upload_5xsoft_upload
- Dim upload,file,formName,FileExp,iCount,TotalSize
- set upload=new upload_5xsoft
- If not isobject(upload) Then
- response.write "上传文件出错,服务器不支持该上传对象<br/>"
- response.write "<anchor>返回上一页<prev/></anchor><br/>"
- upflag=False
- exit sub
- End If
- iCount=0
- For each formName in upload.objFile
- Set file=upload.file(formName)
- If file.FileSize>0 Then
- FileExp=lcase(Right(file.FileName,Len(file.FileName)-InstrRev(file.FileName,".")))
- If not CheckExp(FileExp) Then
- response.write "上传文件出错,当前设置不能上传该格式的文件!<br/>"&FileExp
- response.write "<anchor>返回上一页<prev/></anchor><br/>"
- upflag=False
- exit sub
- End IF
- FileExp="."&FileExp
- photoFormat=FileExp
- TotalSize=file.FileSize/1024
- photoSize=TotalSize
- If TotalSize>maxphotoSize Then
- response.write "上传文件出错,所传文件已经大于设定的允许值,当前所传文件大小"&TotalSize&"Kb!<br/>"
- response.write "<anchor>返回上一页<prev/></anchor><br/>"
- upflag=False
- exit sub
- End If
- filename=GetRndFileName&FileExp
- File.SaveAs Server.mappath(const_txl_HomeUrl&const_photoup_path&filename) ''保存文件
- iCount=iCount+1
- Else
- response.write "上传文件出错,上传数据为空,请检查该文件是否存在!<br/>"
- response.write "<anchor>返回上一页<prev/></anchor><br/>"
- upflag=False
- exit sub
- End If
- Set File=nothing
- next
- set upload=nothing ''删除此对象
- upflag=True
- End Sub
- Sub SaveToDataBase
- if oid=2 then
- set rs_li=server.CreateObject("adodb.recordset")
- sql_li="select * from lttz where tid="&tid&" and fid="&myid
- rs_li.open sql_li,conn,1,3
- if not (rs_li.bof and rs_li.eof) then
- rs_li("upfile")="utf/"&filename
- rs_li.update()
- response.write "恭喜你,上传文件成功!<br/>"
- else
- Response.Write("没有该帖子!")
- end if
- Rs_li.close
- set rs_li=nothing
- else
- set rs_li=server.CreateObject("adodb.recordset")
- sql_li="select * from lttz where tid="&tid&" and fid="&myid
- rs_li.open sql_li,conn,1,3
- if not (rs_li.bof and rs_li.eof) then
- rs_li("fjian")="upfile/"&filename
- rs_li.update()
- response.write "恭喜你,上传文件成功!<br/>"
- else
- Response.Write("没有该帖子!")
- end if
- Rs_li.close
- set rs_li=nothing
- end if
- End Sub
- Rem 文件扩展名检测
- Function CheckExp(TheFileExp)
- Dim defaultphotoFormat,i
- TheFileExp=lcase(TheFileExp)
- CheckExp=False
- If TheFileExp="" Then
- CheckExp=False
- Exit Function
- End If
- If Instr(const_photoFormat,"/")>0 Then
- defaultphotoFormat=Split(const_photoFormat,"/")
- Else
- defaultphotoFormat=const_photoFormat
- End If
- If IsArray(defaultphotoFormat) Then
- For i=0 To Ubound(defaultphotoFormat)
- If TheFileExp=defaultphotoFormat(i) Then
- CheckExp=True
- Exit For
- End If
- Next
- Else
- If TheFileExp=defaultphotoFormat Then
- CheckExp=True
- End If
- End If
- End Function
- Function GetRndFileName()
- Dim tmpstr
- randomize
- tmpstr=Int(1000*rnd)
- 'tmpstr=""&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&tmpstr&"_t125_com"
- tmpstr=""&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&tmpstr
- GetRndFileName=tmpstr
- End Function%>