boardsave.asp

来自「ASP+SQL2000+」· ASP 代码 · 共 64 行

<!--#include file=conn.asp -->
<!--#include file=../include/config.asp -->
<%
IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
END IF
%>
<%
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," "," ") 
    changechr=replace(changechr,"'","&quot;")
    changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function
title=request.form("title")
if title="" then
%>
<script language=javascript>
history.back()
alert("请填写公告标题！")
</script>
<%
Response.End
end if

if len(title)>100 then
%>
<script language=javascript>
history.back()
alert("公告标题过长！")
</script>
<%
Response.End
end if

Content=Request.Form("Content")
if Content="" then
%>
<script language=javascript>
history.back()
alert("请输入公告内容！")
</script>

<%
Response.End
end if

upload=Request.Form("upload")

SQL="insert into board(content,upload,title,dateandtime) values('" & content & "','" & upload & "','" & title & "',now())" 
conn.Execute SQL


	conn.close
	set conn=nothing
	Response.Redirect "boardManage.asp"
%>