admin_specialeditok.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#INCLUDE FILE="Conn.asp" -->
<%
dim typename
dim SpecialName
SpecialID=request("SpecialID")
SpecialName=request("SpecialName")
typename=trim(request("typename"))
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

'修改专题库
sql="select * from Special where SpecialID="&SpecialID
rs.open sql,conn,3,3
rs("SpecialName")=typename
rs.update
rs.close

'修改文章库
sql="select SpecialName from News where SpecialName='"&SpecialName&"'"
rs.open sql,conn,3,3
if not rs.eof then
while not rs.EOF
rs("SpecialName")=SpecialName
rs.update
rs.MoveNext
wend
end if
rs.close

set rs=nothing

conn.close
set conn=nothing

response.redirect "admin_SpecialMana.asp"
%>