savenews.asp

来自「asp+access开发的网上购物程序」· ASP 代码 · 共 50 行

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