DDR爱好者之家

Asp类 的数据库领域
站长资源 2024/11/24 佚名
32 1538
DDR爱好者之家 Design By 杰米
奶奶的，Asp类 是真不好学啊，看着简单，可真到用的时候，网上的代码是都报错啊！！
郁闷了恩久！！ 3天了，终于调试出来了，一个简单的 数据库类模型，不敢独享，拿出来大家分享吧！
本作品 归 站长中国 www.zzcn.net 彭彭所有 ，你们拷贝的时候不许去掉版权，否则拷贝的人全家死光光！！！！呵呵。。：）
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<%
' 彭彭制作的一个新闻类 敬请笑纳 【站长中国】 http://www.zzcn.net QQ：76526211
class NewsClass
 Private zzcn,conn,cnnstr
 private title_p,id_p   
 '对象初始化 
 Private Sub Class_Initialize()    
  'response.write "初始化<br>"
  call newsconnstart()    
 End Sub 

 '析构函数，在使用 set nothing 释放对象时，自动执行 
    Private Sub Class_Terminate() 

  'response.Write "释放对象 事件：Class_Terminate<br>"
  call newsconnend()
    end sub 

 '数据库链接函数
 Private sub newsconnstart() 

        Set conn = Server.createObject("ADODB.Connection")
  cnnstr="DRIVER={Microsoft Access Driver (*.mdb)}; "
  cnnstr=cnnstr & "DBQ=" & Server.MapPath("admin/WataVase/%29to-dream.mdb")
  conn.Open cnnstr
  'response.write cnnstr & "<br>"
    End sub 

 Private sub newsconnend() 
        conn.close
  set conn = nothing
    End sub 

 

 '=========================================
 '函数名 getrs（）
 '获得 某个栏目 的 一条 记录集 
 '栏目名 lanmu 
 '每页几条记录 k
 '第几页 page
 '第几条记录 n
 '日期 riqi  1 为按日期逆序 0 为升序
 '=========================================
 Public Function getrs(ByVal lanmu,ByVal k,ByVal page,ByVal n,ByVal riqi) 

  sql = "Select * From ArticleClass where ClassName = '"&lanmu&"' order By ClassID Desc"  
  'response.write sql&"<br>"
  set rs=Server.CreateObject("adodb.recordset") 
  rs.open sql, conn, 1, 1

   if not rs.eof then
    ClassID_p = rs("ClassID")
   end if

  rs.close
  set rs = nothing

  

  
   if riqi = 1 then
    riqi_p = " order By UpdateTime Desc"
   else
    riqi_p = ""
   end if

   
  sql = "Select * From Article where ClassID = "&ClassID_p&""&riqi_p
  set rs=Server.CreateObject("adodb.recordset") 
  rs.open sql, conn, 1, 1
  rs.PageSize = k

   if not rs.eof then  
       rs.AbsolutePage = page
     end if
  i = 0 
  do while not rs.eof and i < n
  i = i + 1
  rs.movenext
  loop

  
  'response.write "rs<br>"
  if n = i then
   title_p = rs("Title")
   id_p = rs("ArticleID")
   'response.write title_p
   'response.write id_p
  else
   title_p = null
   id_p = null
  end if

    
  rs.close
  set rs = nothing
    end Function 

 

 '----------------------------------------
 '
 '属性写 标题
    Public Property Let title(byval v) 
        title_p = v 
    End Property 
    '属性读  标题
    Public Property Get title() 
        title = title_p 
    End Property

 '属性写 标题ID
    Public Property Let id(byval v) 
        id_p = v 
    End Property 
    '属性读  标题ID
    Public Property Get id() 
        id = id_p 
    End Property

end class 

 


%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Asp 数据库 类 彭彭制作 QQ：76526211</title>
</head>

<body>

<%
dim news
set news = new NewsClass
call news.getrs("网站收藏",1,1,1,1)
response.write news.id & " " & news.title
set news = nothing
%>
</body>
</html>



DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米