LEADBBS3.14ѫ²V1.0
޸ṩ

qq460001

ѫ,ְһЩ鿴ҳһ·ҳõ

Ҫ
1.лԱԲ鿴ѫµĻҼ¼־ѫ°䷢͸ȣ
2.Աάѫµͣ䷢ȡѫ£ԹԱݣܿ˵
3.ϢеѫϢ
4.ѫ,ùԱԶҪ

װ裺

1Ȱѹеļȫͷŵplug-insļУĿ¼Ϊxunzhang

2޸ݿ֣ȫʵݿⱻҲν

3޸xzconn.aspļԼ̳ݿ

4׵Board_Popfun.asp	    
MN("Plug-ins/xunzhang/xzindex.asp","ѫ");
Լϲλã

5еѫϢͿˣӵ÷£
1announce\announce.asp
2ң

*******************************************************
If GetData(27,n)<>"0" and GetData(27,n) <> "" Then
*******************************************************
һеӣ

*******************************************************
			    'ѫϢ
		             xzinfo(GetData(14,n))
******************************************************************
ps:ȻԵúϤĻԼԼϲĵط

3ļ
**********
Main
%>
**********
֮ǰӣ
****************************************************************
'ȡûѫϢ
function xzinfo(Gname)
     dim rsxz,connxz,connstrPlus2,Gsql,pass
     Set connxz = Server.CreateObject("ADODB.Connection")
     connstrPlus2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../plug-ins/xunzhang/xunzhang.mdb")
     connxz.Open connstrPlus2
     Gsql = "select * from xzuser where username='"&Gname&"' and pass like '1'"
     set rsxz=Server.CreateObject("ADODB.Recordset")
	 rsxz.open gsql,connxz,1,1
	 dim xzkindrs,xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,xzq,i
	 if not rsxz.eof then
	 i=1
	 do while not rsxz.eof and i<=6
	 xzq=rsxz("xzkind")
     if xzq<>"0" then
	 set xzrs=connxz.execute("select * from xzdata where xzid="&xzq)
	 xzid=xzrs("xzid")
	 xzname=xzrs("xzname")
	 xzsm=xzrs("xzsm")
	 xzpicurl=xzrs("xzpicurl")
     response.write "<img src="&DEF_BBS_HomeUrl&"/plug-ins/xunzhang/pic/"&xzrs("xzpicurl")&" title="&xzname&":"&xzsm&">"
     end if
	 i=i+1
	 rsxz.movenext
	 loop
	 if rsxz.RecordCount>6 then
	 response.write "<a href="&DEF_BBS_HomeUrl&"Plug-ins/xunzhang/xzindex.asp?menu=5&name="&Gname&" title=>...</a>"
	 end if
	 response.write "<br>"
     end if
	 rsxz.close
	 connxz.close

end function
*******************************************************************************
ps:ݿ֣ҪҲҪŶ

һ˵ѫ²ܳ 5 ,,޸,,ҪǱֻʾ6
Ļ,ָ



2004.11.28
аȨ


п̳
http://www.51skycn.com
by С(aleo)  QQ:112979797
2004.12.3