addinfo.asp

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

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<%
function htmlencode(str)
htmlencode=replace(replace(str,chr(13),"<br>"),"'","''")
end function
%>
<%
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
rst.open "select * from News",conn,3,2
rst.addnew
rst("NewsTitle")=request("NewsTitle")
rst("content")=htmlencode(request("content"))
rst("Name")=request("Name")
rst("bz")=request("bz")
rst("date")=date()
rst.update
rst.close
response.redirect "default.asp"%>