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>

Asp 류 데이터베이스 영역

좋은 웹페이지 즐겨찾기