inc_post_smilie.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<script language="Javascript">
<!-- hide

function insertsmilie(smilieface){

	PostTopic.Message.value+=smilieface;
}
// -->
</script>

<% if lcase(strIcons) = "1" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=left colspan="2" style="TABLE-LAYOUT: fixed; word-break:break-all">&nbsp;&nbsp;
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>点击表情图即可在贴子中加入相应的表情（每个表情最多同时显示 3 次）&nbsp;&nbsp;<a href="JavaScript:openWindow5('pop_icon_legend.asp')">[更多表情符号]</a></b></font><br>
<DIV align="left">
<%
        strsql = "select count(ID) AS TotalCount from " & strTablePrefix & "smiles "
	strsql = strsql & "WHERE " & strTablePrefix & "SMILES.CAT_ID > 0 "
'	strsql = strsql & "WHERE " & strTablePrefix & "SMILES.CAT_ID = " & 1
	set drsCount = server.CreateObject("ADODB.RecordSet")
	drsCount.CacheSize= 10

	drsCount.Open strsql, my_Conn,3
	
	totalrecordcount = 0
	totalrecordcount = drsCount("TotalCount")
        set drsCount =  nothing
        strTempCount = 1

        strCount1 = totalrecordcount
        strsql = "Select smile_name, smile_url, smile_code from " & strTablePrefix & "smiles where cat_id="& 1
        Set drs = Server.CreateObject("ADODB.Recordset")
        drs.open strsql, my_conn, 3
      	if not (drs.eof or drs.bof) then
		drs.PageSize = strCount1
        	drs.AbsolutePage = 1
        	Do until strTempCount = strCount1+1
			smile_name = drs("smile_name")
			smile_url = drs("smile_url")
			smile_code = drs("smile_code")
%>
	<a href="Javascript:insertsmilie('[<%=smile_code%>]');"><img border="0" src="<%=strImageURL %><%=smile_url%>" alt="<%=smile_name%>"></a>
<%
          strTempCount = strTempCount + 1
          drs.movenext
          loop
		  else%>
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">没有任何表情图案</font>

<%		  Response.end
			end if
          set drs=nothing
         %>
</DIV>
</td>
</tr>
<% end if %>