📄 in3.asp
字号:
<!--#include file="conn.asp"-->
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<%
function gwsgs(str)
dim gwsg
dim l
if isNULL(str) then
gwsgs=""
exit function
end if
l=len(str)
gwsg=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
gwsg=gwsg+"<"
case ">"
gwsg=gwsg+">"
case chr(13)
gwsg=gwsg+"<br>"
case chr(34)
gwsg=gwsg+"""
case "&"
gwsg=gwsg+"&"
case chr(32)
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
gwsg=gwsg+" "
else
gwsg=gwsg+" "
end if
else
gwsg=gwsg+" "
end if
case chr(9)
gwsg=gwsg+" "
case else
gwsg=gwsg+mid(str,i,1)
end select
next
gwsgs=gwsg
end function
dim rs,bh
dim sql
bt=request.form("bt")
bh=request.form("bh")
nr=request.form("nr")
if bt="" then response.redirect("error.asp?word=标题不可以为空")
if nr="" then response.redirect("error.asp?word=内容不可以为空")
set rs=server.createobject("adodb.recordset")
sql="select * from gg where bh='" + bh + "'"
rs.open sql,conn,3,3
if not rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("error.asp?word=该编号已经存在")
else
set rs=server.createobject("adodb.recordset")
sql="select * from gg where bh is null"
rs.open sql,conn,3,3
rs.addnew
rs("bt")=request("bt")
rs("nr")=gwsgs(nr)
rs("bh")=request("bh")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<center>增加公告成功！</center>")
end if
%>
<p>
<center><a href=lrgg.asp>增加下一条公告</a></center>
<p align="center">
<a href='ggglsx.asp'><font size="4" color="#FF0000">返回公告管理</font></a>
</p>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -