savenewsadd.asp

人民医院眼科全站

<!-- #include file="../include/bkconn.asp"-->
<!--#INCLUDE FILE="../include/upload.asp"-->
<!--#include file="checkUser.asp"-->
<%
	sql = "SELECT top 1 * FROM news order by id desc"
	set rs=conn.execute(sql)
	if not rs.eof then
		id=rs("id")+1
	else
		id=1
	end if
	set rs=nothing

	set upload=new upload_5xSoft
	formPath=formPath
	set file=upload.file("images1")
	formPath="../images1/"
	if file.FileSize>0 then         '如果 FileSize > 0 说明有文件数据
		fileName=file.FileName
		images1_name=id & right(fileName,(len(fileName)-InStrRev(fileName,".")+1))
		file.SaveAs Server.mappath(formPath & images1_name)   ''保存文件                  
	end if

	set file1=upload.file("images2")
	formPath="../images2/"
	if file1.FileSize>0 then         '如果 FileSize > 0 说明有文件数据
		fileName=file1.FileName
		images2_name=id & right(fileName,(len(fileName)-InStrRev(fileName,".")+1))
		file1.SaveAs Server.mappath(formPath & images2_name)   ''保存文件                  
	end if
	
	set file1=nothing 	
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT top 1 * FROM news order by id desc"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       InsertCursor.addnew  
	 
	if upload.form("Sort")<>"" then
       InsertCursor("newsSort") =upload.form("Sort")
	end if
    if upload.form("Sort1")<>"" then
	   InsertCursor("Sort1") =upload.form("Sort1")
	   end if
    if upload.form("title")<>"" then
	   InsertCursor("title") =upload.form("title")
	 end if
	 if upload.form("content")<>"" then
       InsertCursor("content") =upload.form("content")
	   end if
	if images1_name<>"" then
	   InsertCursor("images1") =images1_name
	end if
	if images2_name<>"" then
	   InsertCursor("images2") =images2_name
	end if
	   InsertCursor.Update

%>
	<script language=Javascript>
	<!--
	alert("添加成功！");
	window.location="newsAdd.asp?newsSort=<%=upload.form("Sort")%>"
	-->
	</script>
<%
	   InsertCursor.close
	   conn.close
       set InsertCursor=nothing
       set conn=nothing
%>