admin_save.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-->
<!--#include file=inc/function.asp-->

<%
If request("title")="" OR request("detail")="" then
response.write"<script>alert('"&ewap_(33)&"');window.document.location.href='admin_add.asp'</script>"
response.end
else
If request("class")="" then
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='admin_index.asp'</script>"
response.end
end if
If len(request("title"))>40 then
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='admin_add.asp'</script>"
end If
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select ntitle,ndetail,ntime,nclass from news order by ntime desc"
rs.open sql,cn,3,3
rs.addnew
rs("ntitle")=replacebadchar(trim(request("title")))
rs("ntime")=now()
rs("ndetail")=HTMLEncode(request("detail"))
rs("nclass")=request("class")
rs.update

%>
<%
If err then

response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='admin_add.asp'</script>"

else
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='admin_add.asp'</script>"
end if
rs.close
set rs=nothing
cn.close
set cn=nothing
end if

%>