支持“外加数据库式转生“的# 英雄排行网页
<%
toplist=100 '列出多少名
dbnames="zzzsss.mdb" '转生数据库
set rs=server.createobject("adodb.recordset")
set rsz=server.createobject("adodb.recordset")
job=left(request("job"),4)
httpurl=request.servervariables("http_referer")
if instr(httpurl,SiteURL)=0 then
response.write ""
response.end
end if
connstrs = "DBQ="+server.mappath(dbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conns = Server.CreateObject("ADODB.Connection")
conns.Open connstrs
%>