photonum.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 34 行

<!--#include file="security.asp"-->
<%
'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/xlist.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
Set connpic = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/ximg.asp")
connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
Set rs_photo = Server.CreateObject("ADODB.Recordset")
set rs=server.createobject("adodb.recordset")
sql="select user_id,photo from larchives"
rs.open sql,conn,3,3

do while not rs.eof
   sql1="select user_id from pic where user_id=" & rs("user_id")
   rs_photo.open sql1,connpic,1,1
   rs("photo")=rs_photo.recordcount
   rs_photo.close
   rs.movenext
loop

conn.close
set conn=nothing
response.redirect "../info.asp?msg=计算完毕！"
%>