saveedit.asp

北京商务网

<%@ codepage ="936" %>
<%OPTION EXPLICIT%>
<!--#include FILE="upload.inc"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%function changechr(str) 
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%>

<%
dim upload,file,formName,formPath,iCount,title,typeid,tjnews,content,catchpic,from,picurl,rs,imgs,img
dim newsid,sql
set upload=new upload_5xSoft

catchpic=upload.form("catchpic")
newsid=upload.form("newsid")
title=upload.form("title")
typeid=upload.form("typeid")
tjnews=upload.form("tjnews")
from=upload.form("nfrom")

img=upload.form("upfile")
dim sql1,rs1,typename1
sql1="select * from hyxxtype where typeid="&typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("type")
content=changechr(upload.form("content"))

set rs=server.createobject("adodb.recordset")
sql="select * from hyxx where newsid="&cstr(newsid)
rs.open sql,conn,1,3
	rs("title")=title
	rs("content")=content
	rs("Typeid")=typeid
	rs("nfrom")=from
	rs("Selectpic")=catchpic
	rs("tjnews")=tjnews
	if imgs<>"" then
	rs("picurl")=img
	rs("Typename")=typename1
	end if
rs.update
rs.close 
set rs=nothing 
rs1.update
rs1.close 
set rs1=nothing 
conn.close 
set conn=nothing 
set upload=nothing

response.write "[<a href=""javascript:history.back();"">返回</a>]"
response.write catchpic

response.write from
response.end

%>