Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing

（建立數(shù)據(jù)庫(kù)連接，好象是吧，不大懂，嘿嘿。）

'==========================================================================
'設(shè)置調(diào)用會(huì)員數(shù)量
dim Getnum
Getnum = 10
'==========================================================================
（定義一個(gè)變量，設(shè)置調(diào)用會(huì)員資料的數(shù)量）

dim tempobj,tempsql
tempsql = "select top "& Getnum &" id,MemName,***,loginnum from FS_Members order by id desc"
set tempobj = conn.execute(tempsql)
（查詢(xún)數(shù)據(jù)庫(kù)，取得對(duì)應(yīng)的資料）

if not tempobj.eof then
do while not tempobj.eof
dim memid,memname,mem***,true***,memloginnum
memid = tempobj("id")
memname = tempobj("memname")
mem*** = tempobj("***")
memloginnum = tempobj("loginnum")
if mem*** = "0" then
true*** = "<font color=""red"">女</font>"
else
true*** = "<font color=""bule"">男<font>"
end if
（重點(diǎn)在下面這里，呵呵，輸出document.write后的內(nèi)容并循環(huán)，這樣才可以用js調(diào)用）
Response.write "document.write('<table width=""220"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&"<tr>"&"<td width=""120"" height=""20"" align=""center"" valign=""middle"">"&"<a href=memtext.asp?id="& memid &" title=""點(diǎn)擊查看此會(huì)員的具體資料"" target=""_blank"">"& memname &"</a>"&"</td>"&"<td width=""50"" height=""20"" align=""center"" valign=""middle"">"& true*** &"</td>"&"<td width=""50"" height=""20"" align=""center"" valign=""middle"">"& memloginnum &"</td>"&"</tr>"&"</table>');"
tempobj.movenext
loop
else
response.Write"暫時(shí)還沒(méi)有會(huì)員哦"
end if

tempobj.close
set tempobj = nothing
set conn = nothing （關(guān)閉數(shù)據(jù)庫(kù)連接）
%>

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板