editinfo.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<%
function htmlencode(str)
htmlencode=replace(replace(str,chr(13),"<br>"),"'","''")
end function
%>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from News where newsid="&request("Newsid") 
rs.open sql,conn,1,3
rs("NewsTitle")=request("NewsTitle")
title=request("title")
rs("content")=htmlencode(request("content"))
rs("Name")=request("Name")
rs("open")=request("open")
rs("ads")=request("ads")
rs("date")=date()
rs.update
rs.close
response.redirect "default.asp"%>