saveedit.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#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,"[beenchen]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
changechr=replace(replace(replace(replace(changechr,"[/beenchen]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%>
<%
dim title
dim content
dim sql
dim rs
dim Path
dim FileName
title=request.form("title")
Path=request.form("Path")
content=changechr(request.form("txtcontent"))
newsid=request("newsid")
FileName=request.form("FileName")
txtcontent=request.form("content")
set rs=server.createobject("adodb.recordset")
sql="select * from commerce where newsid="&newsid
rs.open sql,conn,3,3
rs("title")=title
rs("Path")=Path
rs("content")=content
RS("FileName")=FileName
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "default.asp"
%>