admin_specialadd.asp

来自「庐江二中」· ASP 代码 · 共 52 行

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#INCLUDE FILE="Conn.asp" -->
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")
changechr=replace(changechr,"'","&quot;")
changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function

dim typename
typename=changechr(trim(request("type")))
If typename="" Then
%>
<script language=javascript>
history.back()
alert("不能为空！")
</script>
<%
response.end
end if

sql="select * from Special"
rs.open sql,conn,3,3
do while not rs.eof
if rs("Specialname")=typename then
%>
<script language=javascript>
history.back()
alert("已经存在这个专题！")
</script>
<%
response.end
end if
rs.movenext
loop
rs.close

howmany=request.form("howmany")

sql="select * from Special"
rs.open sql,conn,3,3
rs.addnew
rs("Specialname")=typename
rs("SpecialID")=howmany+1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_SpecialMana.asp"
%>