savenews.asp

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

<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<LINK href="../../Pict/mwtStyle.css" rel=stylesheet type=text/css>
<%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 content
dim sql
dim rs
dim title
dim Path
dim typeid
dim typenamer
dim FileName
dim sql1
dim rs1
title=request.form("title")
Path=request.form("Path")
typeid=request.form("typeid")
FileName=request.form("FileName")
content=changechr(request.form("content"))
sql1="select * from commercetype where typeid="&int(typeid)
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typenamer=rs1("type")
rs1.close 
set rs1=nothing 
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from commerce",conn,1,3
rs.addnew
rs("title")=title
rs("Path")=Path
rs("FileName")=FileName
rs("content")=content
rs("typename")=typenamer
rs("selectpic")=selectpic
rs("typeid")=typeid
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "default.asp"
%>