admin_system_edit.asp

电影ASP文件

<!--#include file="../film_conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="../set_url.asp"-->
<%
if session("flag")>2 then
response.write "<br><p align=center>您的操作权限不够！</p>"
response.end
end if
%>
<%
if trim(request.form("webname"))="" then errmsg=errmsg & "请填写网站名称！\n"
if trim(request.form("weburl"))="" then errmsg=errmsg & "请填写网址！\n"
if trim(request.form("set_logo"))="" then errmsg=errmsg & "请填写LOGO路径！\n"
if trim(request.form("adminurl"))="" then errmsg=errmsg & "请填写管理文件夹名！\n"

if errmsg<>"" then
    Conn.Close
    Set conn = nothing
    Set rsc = nothing
    response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
    response.end
end if
%>
<%
'on error resume next
 webname=trim(request("webname"))
 weburl=trim(request("weburl"))
 set_logo=trim(request("set_logo"))
 set_ie=trim(request("set_ie"))
 webtitle=trim(request("webtitle"))
 adminurl=trim(request("adminurl"))
 logintype=trim(request("logintype"))
 loginip=trim(request("loginip"))
 bad_words=trim(request("bad_words"))
 keywords=trim(request("keywords"))
 Description=trim(request("Description"))
 Pay=replace(request("pay"),vbcrlf,"<br>")
 
 set rs=server.createobject("adodb.recordset")
 sql="select * from set_system where id="&request("id")&""
 rs.open sql,conn,3,3
 rs("webname")=webname
 rs("weburl")=weburl
 rs("set_logo")=set_logo
 rs("set_ie")=set_ie
 rs("webtitle")=webtitle
 rs("adminurl")=adminurl
 rs("logintype")=logintype
 rs("loginip")=loginip
 rs("bad_words")=bad_words
 rs("keywords")=keywords
 rs("Description")=Description
 rs("Pay")=pay
 rs.update
 response.redirect "admin_system.asp"
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>