<% Dim objConn,Updatas,objr,opendata,tablename function GetSQL(strSQL) 'Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.ConnectionString ="Provider=sqloledb; User ID=sa; Password=kin; Initial Catalog=cw41041; Data Source=kindin" strSQLServerName = "218.30.96.36" '服务器名称或地址 strSQLDBUserName = "cw41041" '数据库帐号 strSQLDBPassword = "EC01683427Cn" '数据库密码 strSQLDBName = "cw41041_db" '数据库名称 Set objConn = Server.CreateObject("ADODB.Connection") strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";" objConn.Open strcon set GetSQL=server.CreateObject("ADODB.recordset") GetSQL.Open strSQL, objConn,1,1 End Function %> <% sql="select * from tl order by id" set rs=getsql(sql) rs.pagesize=50 %> 尖锐湿疣咨询010-51286008^o^治疣家园，给你自由。尖锐湿疣，一网打尽。
 
     
INFORMATION
回首页
医学常识
治疣新药
用药指导
问题解答
购买方式
联系方式
康复中心
治疣故事
招商合作


   ^o^ 治疣新药 : [去跟]      [疣迪]      [南博]      [疣克清]
 治疣故事  
   
<% page=request("page") if page="" then page=1 if rs.recordcount<>0 then rs.absolutepage=page end if for i=1 to rs.pagesize if rs.eof then exit for end if %> <% rs.movenext next%>
  ><%=rs("title")%>
<%=rs("name")%>
<%=rs("dtime")%>
共有：<%=rs.recordcount%>篇文章 / 分页显示： <%if rs.pagecount>1 then response.write ""&request("page")&"" end if if request("page")="" then response.write "1" %> <% Response.Write "/" & rs.pagecount & " " for j=1 to rs.pagecount Response.Write "[" & j & "] " next %>

 
转自尖锐湿疣去跟网 http://www.kindin.com
 
   
【TOP】【我要纠错】【字体：大 中 小】【关闭】