<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rsStudio
Dim rsStudio_numRows
Set rsStudio = Server.CreateObject("ADODB.Recordset")
rsStudio.ActiveConnection = MM_conndbLink_STRING
rsStudio.Source = "SELECT * FROM tStudio"
rsStudio.CursorType = 0
rsStudio.CursorLocation = 2
rsStudio.LockType = 1
rsStudio.Open()
rsStudio_numRows = 0
%>
<%
Dim rsLink
Dim rsLink_numRows
Set rsLink = Server.CreateObject("ADODB.Recordset")
rsLink.ActiveConnection = MM_conndbLink_STRING
rsLink.Source = "SELECT * FROM tLink ORDER BY id_Link ASC"
rsLink.CursorType = 0
rsLink.CursorLocation = 2
rsLink.LockType = 1
rsLink.Open()
rsLink_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsLink_numRows = rsLink_numRows + Repeat1__numRows
%>
<中国安防项目安全项目网>
www.Aqxm.com 国内最具效率,最具亲和力的安防专业交流平台
http://www.aqxm.com/BBS/index.asp安全项目论坛
http://www.aqxm.com/bbs/BokeIndex.asp/ 安防人博客个人主页
http://www.aqxm.com/minglu/ 全国安防人签名列表