admin_class_edit.asp

1.手机浏览2.手机发布3.手机搜索4.栏目二级分类5.中文/英语操作支持

<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
'┃ 奇网天下·7WAP企业（移动）信息系统                                 ┃
'┃                                                                    ┃
'┃ Copyright All Rights Reserved.                                     ┃
'┃ 官方： www.7wap.cn                                                 ┃
'┃ 作者： 孙岩清                                                      ┃
'┃ 授权： BEAT版 未经授权不得商业使用。                               ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ Version   1.0                                                      ┃
'┃ Description   开发建议/使用问题/扔砖头：BBS.7WAP.CN                ┃
'┃ Create 2005.11.18    beat3                                         ┃
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
%>
<!--#include file=conn.asp-->
<!--#include file=admin_chkpass.asp-->
<%
Dim sql5,rs5
set rs5=server.createobject("ADOdb.Recordset")
sql5="select * from class where class_name='"&request("class_n")&"' and p_class="&int(request("p"))
rs5.open sql5,cn,1,3
If rs5.eof and rs5.bof then
dim rs2,sql2
set rs2=server.createobject("ADOdb.Recordset")
sql2="select * from class where id="&int(request("cid"))
rs2.open sql2,cn,1,3
rs2("class_name")=request("class_n")
rs2("p_class")=request("p")
rs2.update
rs2.close
set rs2=nothing
cn.close
set cn=nothing
If not err then
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='Admin_Class.asp'</script>"
else
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='Admin_Class.asp'</script>"
End If
else
response.write"<script>alert('"&ewap_(65)&"');window.document.location.href='Admin_Class.asp'</script>"
response.end
End If
	rs5.close
	set rs5=nothing
%>