add_smile.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 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" -->
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_smiles.asp">表情设置</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;新增表情分类
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<BR><BR><BR><BR><BR>
<%
Select Case Request.Querystring("type")
	Case "cat"
		strsql = "INSERT INTO " & strTablePrefix & "smile_cat (cat_name) VALUES ('"&Replace(Request.form("cat_name"), "'", "''")&"')"
		my_conn.Execute(strsql)
		Response.Write("<center>分类新增完成！<a href=""admin_smiles.asp"">返回</a>表情设置</center>")
	Case else
		if Request.form("smile_code") = "" or Request.form("smile_url") = "" then
			response.write("表格未填写或发生某种错误")
			my_conn.close
			set my_conn = nothing
			response.end
		end if

		strsql = "INSERT INTO "&strTablePrefix&"smiles (smile_code, smile_url, smile_name, cat_id) Values("
		strsql = strsql & "'"&Request.form("smile_code")&"' ,'"&Request.form("smile_url")&"', '"&Request.form("smile_name")&"', "&Request.form("cat_id")&")"
		my_conn.Execute(strsql)

		Response.Redirect("admin_smiles.asp")
End select
%>
<BR><BR><BR><BR><BR>
<!--#INCLUDE file="inc_footer.asp" -->
<%
else
	response.redirect("admin_login.asp")
end if
%>