savead.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp" -->
<%
sub scripterr
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n"&errstyle&"');history.go(-1);</script>"
response.end
end sub

dim upload,file,file1,exta,counts,extname,rndnum,rnda,i,fileb,SMT_ypxxone_id,SMT_ypxxtwo_id,name,url,weizhi,adddate'定义基本不变变量
dim username,sql,picname'定义要取得的数据变量
set upload = Server.CreateObject("Persits.Upload") ''建立上传对象
if not IsObject(upload) then
	errstyle=("服务器不支持Persits.Upload组件！")
	scripterr
end if
upload.Save

SMT_ypxxone_id=upload.form("ypxxone_id")'读取数据
name=replace(trim(upload.form("name")),"'","''")
if name="" then
errstyle="企业名称不能为空"
scripterr
end if
weizhi=replace(trim(upload.form("weizhi")),"'","''")
url=replace(trim(upload.form("url")),"'","''")
if url="" then
errstyle="网址不能为空"
scripterr
end if
adddate=now()
set fileb=upload.files("pic")  ''生成一个文件对象
if not fileb is nothing then

	extname=replace(fileb.Ext,".","")
	'生成2位随机数
	for i=0 to 1
	Randomize()
	rnda = Int((9 * Rnd) + 1)
	rndnum=rndnum&rnda
	next
	picname=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&rndnum&"."&extname'生成图片文件名

	 if fileb.size>0  then         ''如果 FileSize > 0 说明有文件数据
	  	fileb.saveAs Server.mappath("../../ad") & "\" & picname   ''保存文件
	end if
	
else
	errstyle="广告图片不能为空"
	scripterr
end if

'存入数据库
sql="insert into SMT_SearchADS(ypxxone_id,name,url,weizhi,adddate,pic) values('"&SMT_ypxxone_id&"','"&name&"','"&url&"','"&weizhi&"','"&adddate&"','"&picname&"')"
conn.execute(sql)
''删除此对象
set fileb=nothing
set upload=nothing  
Response.Redirect("addad.asp") %>