conn.asp

来自「在线发布系统 本系统有两大功能模块：用户模块和后台管理模块。用户模块模块主要实」· ASP 代码 · 共 49 行

<%
dim objconn
set objconn =server.createobject("adodb.connection")
objconn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data/wen_data.mdb")
function conn_str(sqlstr)
set conn_str=server.createobject("adodb.recordset")
conn_str.open sqlstr,objconn,1,2
end function
function close_str(conn_str)
conn_str.close
set conn_str=nothing
end function
%>
<script language="javascript">
function msgstr(str,objpage)
{
window.alert(str);
location.href=objpage;
}
</script>
<%
			sub zzq1()
			sql="select * from wen order by w_count desc"
				  set objrs=conn_str(sql)
                for i=1 to objrs.recordcount
				if i>5 then exit for
				if len(objrs("wen_title"))>12 then 
				title=left(objrs("wen_title"),12)&"……"
				else 
				title=objrs("wen_title")
				end if
				%>
				 <tr>
                  <td height="20"> · <a href="show_wen.asp?id=<%=objrs("wen_id")%>"><%=title%></a></td>
                </tr>
		   <%objrs.movenext
		   next
		   if objrs.recordcount<5 then
				   for i=1 to 5-objrs.recordcount
				   %>
				   <tr>
                  <td height="20"> · </td>
                </tr>
				   <%
				   next
				   end if
				   close_str(objrs)
			end sub
			%>