edit_smile.asp

来自「此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.」· ASP 代码 · 共 45 行

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<%
if request.form("smile_id") = "" then
	response.write("Your here by mistake")
    my_conn.close
    set my_conn=nothing
    response.end
end if

Dim smile_id, smile_code, smile_url, smile_name
smile_id = request.form("smile_id")
smile_code = request.form("smile_code")
smile_url = request.form("smile_url")
smile_name = request.form("smile_name")
smile_cat = request.form("cat_id")

strsql = "UPDATE "&strTablePrefix&"smiles SET smile_code='"&smile_code&"', smile_url='"&smile_url&"', smile_name='"&smile_name&"', cat_id="&smile_cat&" WHERE id="&smile_id
my_conn.execute(strsql)

response.redirect("admin_smiles.asp")
%>
<!--#INCLUDE file="inc_footer.asp" -->
<%
else
	response.write("只有论坛管理员才能修改表情设置, 请以管理员身份登陆")
%>
<!--#include file="inc_footer.asp" -->
<%end if%>