admin_smallclasseditok.asp

庐江二中

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

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


'修改小类库
sql="select * from SmallClass where ID="&ID
rs.open sql,conn,3,3
typen=rs("SmallClassName")
rs("SmallClassName")=typename
rs.update
rs.close

'修改文章库
sql="select * from news where SmallClassName='"&typen&"'"
rs.open sql,conn,3,3
do while not rs.eof
rs("SmallClassName")=typename
rs.update
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing

response.redirect "admin_SmallClassMana.asp"
%>