<%dbs="../"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="uccook.asp"-->
<!--#include file="uc.asp"-->
<%
H_class=Replace(Replace(Left(request.Form("H_class"),10),"<","["),">","]")
H_key=Replace(Replace(Left(request.Form("H_key"),2),"<","["),">","]")
H_Title=Replace(Replace(Left(request.Form("H_Title"),200),"<","["),">","]")
H_ix=Replace(Replace(Left(request.Form("H_ix"),2),"<","["),">","]")
H_txt=Left(request.Form("H_txt"),20000)
H_txt=replace(H_txt,"table","表格")
H_txt=replace(H_txt,"TABLE","表格")
H_txt=replace(H_txt,"<tr","表格")
H_txt=replace(H_txt,"<td","表格")
H_txt=replace(H_txt,"</tr","表格")
H_txt=replace(H_txt,"</td","表格")
if H_class="" then
H_class=0
end if
if H_key="" then
response.Write "<script >alert('提示：\n\n对不起，请选择权限！...');history.back(-1);</script>"
response.End()
end if
if H_Title="" then
response.Write "<script >alert('提示：\n\n对不起，请填写标题！...');history.back(-1);</script>"
response.End()
end if
if H_txt="" then
response.Write "<script >alert('提示：\n\n对不起，请填写日志内容！...');history.back(-1);</script>"
response.End()
end if
if H_ix="" then
response.Write "<script >alert('提示：\n\n对不起，是否固顶！...');history.back(-1);</script>"
response.End()
end if
''开始写入数据
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from H_divry"
	rs.open sql,conn,1,3
	rs.addnew
	rs("UID")=UID
	rs("H_class")=H_class
	rs("H_key")=H_key
	rs("H_Title")=H_Title
	rs("H_txt")=H_txt
	rs("H_ix")=H_ix
	rs("RDate")=now()
	rs.update
	rs.close
	set rs=nothing	
	response.Write "<script >alert('提示：\n\n添加成功,立即返回...');location.href='divry_master.asp';</script>"
	response.End()
%>