mpost_save.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="upload_5xsoft.inc"-->
<%
function GetExtendName(FileName)
  dim ExtName
  ExtName = LCase(FileName)
  ExtName = right(ExtName,3)
  ExtName = right(ExtName,3-Instr(ExtName,"."))
  GetExtendName = ExtName
end function
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function

dim upload,file,formName,formPath 
set upload=new upload_5xSoft
id = upload.form("id")
act= upload.form("act")
Title = upload.form("title")
FileName = upload.form("FileName")
content = trim(upload.form("content"))
nType = upload.form("nType")

 if nType="" then
 nType=2
 end if
 if content="" or Title="" then
	response.write "<SCRIPT language=JavaScript>alert('词条内容中不能为空！');"
   	response.write "history.go(-1);"
   	response.write "</script>"        
    response.end 
 end if

formPath="../upPic"
if right(formPath,1)<>"/" then formPath=formPath&"/"

for each formName in upload.file
	set file=upload.file(formName)
	filesize=file.FileSize

	if filesize>0 then
		if filesize>51200 then
			response.write "<BR><BR><center>图片大小限制在50K以下<center>"
			response.end
		end if
		vfname = makefilename(now())
		'随机数
		Randomize
		Random=Int((1000 - 100 + 1) * Rnd + 100)'3位随机数
		vfname=vfname&"_"&Random'图片名称	
		FileExt1=GetExtendName(file.FileName)
		if FileExt1<>"jpg" and FileExt1<>"gif" then
			response.write "<BR><BR><center>只能上传gif,jpg类型的图片<center>"
			response.end
		end if
		fname = vfname & "." & GetExtendName(file.FileName)
		file.SaveAs Server.mappath(formPath&fname)
	end if
next

  if filesize>0 then
  content="<A href=""../upPic/"&fname&" "" target=_blank><IMG  hspace=5 src=""../upPic/"&fname&" "" align=right vspace=5 border=0></A>"&content
  end if
  if Session("user_id")="" then
  nUser=4
  else
  nUser=Session("user_id")
  end if	
  if act="add" then 
  sql="select * from kheu_nPost"
  set rsr=server.createobject("adodb.recordset")
  rsr.open sql,conn,1,3
      rsr.addnew
      rsr("Title")=Title
      rsr("nType")=nType
      rsr("Content")=Content
      rsr("nUser")=nUser
      rsr("date")=now()
      rsr("show_flag")=false
      rsr("first_flag")=false
      rsr("clicked")=0
      rsr("build_flag")=false     
      rsr.update
  rsr.close
  conn.close
  response.write "<SCRIPT language=JavaScript>alert('添加成功，等待审核！');location.href=""../index.htm"";"
  response.write "</script>"
  else
   sql="select * from kheu_nPost where id="&id

   set rsr=server.createobject("adodb.recordset")
   rsr.open sql,conn,1,3
      rsr("Title")=Title
      rsr("Content")=content
      rsr("nUser")=nUser
      rsr("date")=now()
      rsr("show_flag")=false
      rsr("first_flag")=false
      rsr("clicked")=rsr("clicked")+1
      rsr("build_flag")=false     
      rsr.update
      rsr.close
      conn.close
      response.write "<SCRIPT language=JavaScript>alert('修改成功，等待审核！');location.href=""../index.htm"";"
      response.write "</script>"

  
  
  end if
%>