<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='家装课堂' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=15
for j=1 to rs.PageSize
ViewList=3
%>
<td width="33%">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="5%" height="27"> </td>
<td width="5%" valign="middle" style="border-bottom:1px dotted #9b7022;"><img src="images/a.gif" width="9" height="9"/></td>
<td width="85%" align="left" valign="middle" style="border-bottom:1px dotted #9b7022;"><div align="left" style="margin-left:5px;"><a href="shownews.asp?id=<%= RS("id") %>&BigClass=<%=RS("BigClassName")%>" target="_blank" title="<%= RS("TITLE") %>"><%=cutstr (rs("title"),15)%></a></div></td>
<td width="5%"> </td>
</tr>
</table>
<%
if j mod ViewList =0 then
response.Write"</td></tr>"
else
response.Write"&
一个ASP替换函数img里面多余的代码
<%
Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />")))
%>
<%
'功能:将IMG代码格式化为<img src= ......
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
