conn.asp
<%
set conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("db1.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
%>
sqlcn.asp
<%
on e >查看详情
<%response.buffer="true"%>
cookies使用
<br/>
<%
dim varnumber
varnumber=request.Cookies("varnumber")
if varnumber="" then
varnumber=1
else
varnumber=varnumber+1
end if
response >查看详情
一维数组:
<!--#include file="conn.asp"-->
<%
dim a(2)
dim i
i=0
set rs=conn.execute("select *from forum")
do while not rs.eof
a(i)="<item><id>"&rs("userhome")&"</id >查看详情