newsclassedit3.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file=conn.asp --><!--#include file=../include/config.asp --><!--#include file=chkuser.asp -->
<%
NewsID=Request.QueryString("NewsID")
typeid=request.form("typeid")
BigClassid=trim(Request.Form("BigClassid"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from news where newsid="&newsid
rs.open sql,conn,3,3
dim title
title=rs("title")
rs.close
set rs=nothing
if BigClassid="" then
%>
<script language=javascript>
history.back()
alert("请选择该文章所属的大类，如果系统中还没有文章大类的话，请在《大类管理》中添加新类别！")
</script>
<%
Response.End
end if

SmallClassid=trim(Request.Form("SmallClassid"))

set rs13=server.createobject("adodb.recordset")
sql13="select * from news where NewsID="&NewsID
rs13.open sql13,conn,3,3
rs13("bigclassid")=bigclassid
if smallclassid="" then
rs13("smallclassid")=null
else
rs13("smallclassid")=smallclassid
end if
rs13("typeid")=typeid
rs13.update
rs13.close
set rs13=nothing


Response.Redirect "newsedit.asp?NewsID="&NewsID
%>