<%
Dim Test,Rs,Sql,flag,Countx,kphoto
Dim kname(5)
Set Test = New Cls_Conn
Set Conn = Test.OpenConnction()
Set Test = Nothing
Set Rs = Server.CreateObject("ADODB.recordset")
%>
长安大学杂志社关于本社_长安大学杂志社
<%
Sql = "Select * from kanwu"
Rs.open Sql,Conn,3,1
'Countx = Rs.recordcount
%>
