xh_save.asp

DWMX+ACCESS打造企业新闻系统源代码没有密码大家随便下

<!--#include file="xh_conn.asp"-->
<%
dim xianhe
xianhe=session("xianhe")
if xianhe="" then
response.redirect "xh_login.asp"
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from erennew"
rs.open sql,db,1,3
rs.addnew
rs("title")=trim(request.form("title"))
rs("name")=trim(request.form("name"))
rs("content")=server.htmlencode(request.form("content"))
rs("xhcount")=0
rs("xhtime")=now()
rs.update
rs.close
set rs=nothing
response.redirect "xh_add.asp"
%>