{"id":21,"date":"2007-04-16T17:39:06","date_gmt":"2007-04-16T09:39:06","guid":{"rendered":"http:\/\/www.cnmiss.cn\/?p=20"},"modified":"2010-12-02T06:32:07","modified_gmt":"2010-12-02T06:32:07","slug":"asp%e4%bc%aa%e4%b8%89%e5%b1%82%e6%9e%b6%e6%9e%84%e7%ae%80%e5%8d%95%e5%ae%9e%e4%be%8b","status":"publish","type":"post","link":"https:\/\/www.cnmiss.cn\/?p=21","title":{"rendered":"ASP\u4f2a\u4e09\u5c42\u67b6\u6784\u7b80\u5355\u5b9e\u4f8b"},"content":{"rendered":"

1.\u6570\u636e\u6a21\u578b\u5c42\uff1a
\/class\/Data\/News.asp<\/b><\/span><\/p>\n

<%
Class DataNews<\/p>\n

Private INewsID
Private IClassID
Private IClassName
Private ITitle
Private IContent
Private IPicture
Private IIsCommend
Private IHits
Private IPostDate<\/p>\n

'NewsID
Public Property Let NewsID(ByVal value)
INewsID = value
End Property
Public Property Get NewsID()
NewsID = INewsID
End Property<\/p>\n

'ClassID
Public Property Let ClassID(ByVal value)
IClassID = value
End Property
Public Property Get ClassID()
ClassID = IClassID
End Property<\/p>\n

'ClassName
Public Property Let ClassName(ByVal value)
IClassName = value
End Property
Public Property Get ClassName()
ClassName = IClassName
End Property<\/p>\n

'Title
Public Property Let Title(ByVal value)
ITitle = value
End Property
Public Property Get Title()
Title = ITitle
End Property<\/p>\n

'Content
Public Property Let Content(ByVal value)
IContent = value
End Property
Public Property Get Content()
Content = IContent
End Property<\/p>\n

'Picture
Public Property Let Picture(ByVal value)
IPicture = value
End Property
Public Property Get Picture()
Picture = IPicture
End Property<\/p>\n

'IsCommend
Public Property Let IsCommend(ByVal value)
IIsCommend = value
End Property
Public Property Get IsCommend()
IsCommend = IIsCommend
End Property<\/p>\n

'Hits
Public Property Let Hits(ByVal value)
IHits = value
End Property
Public Property Get Hits()
Hits = IHits
End Property<\/p>\n

'PostDate
Public Property Let PostDate(ByVal value)
IPostDate = value
End Property
Public Property Get PostDate()
PostDate = IPostDate
End Property<\/p>\n

Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub<\/p>\n

End Class
%><\/p><\/blockquote>\n

2.\u6570\u636e\u8bbf\u95ee\u5c42\uff1a
\/Class\/Dal\/News.asp<\/b><\/span><\/p>\n

<!–#include virtual="\/Class\/Data\/News.asp"–>
<%
Class DalNews<\/p>\n

Private db
Private news<\/p>\n

'NewsID
Public Property Let NewsID(ByVal value)
news.NewsID = value
End Property
Public Property Get NewsID()
NewsID = news.NewsID
End Property<\/p>\n

'ClassID
Public Property Let ClassID(ByVal value)
news.ClassID = value
End Property
Public Property Get ClassID()
ClassID = news.ClassID
End Property<\/p>\n

'ClassName
Public Property Let ClassName(ByVal value)
news.ClassName = value
End Property
Public Property Get ClassName()
ClassName = news.ClassName
End Property<\/p>\n

'Title
Public Property Let Title(ByVal value)
news.Title = value
End Property
Public Property Get Title()
Title = news.Title
End Property<\/p>\n

'Content
Public Property Let Content(ByVal value)
news.Content = value
End Property
Public Property Get Content()
Content = news.Content
End Property<\/p>\n

'Picture
Public Property Let Picture(ByVal value)
news.Picture = value
End Property
Public Property Get Picture()
Picture = news.Picture
End Property<\/p>\n

'IsCommend
Public Property Let IsCommend(ByVal value)
news.IsCommend = value
End Property
Public Property Get IsCommend()
IsCommend = news.IsCommend
End Property<\/p>\n

'Hits
Public Property Let Hits(ByVal value)
news.Hits = value
End Property
Public Property Get Hits()
Hits = news.Hits
End Property<\/p>\n

'PostDate
Public Property Let PostDate(ByVal value)
news.PostDate = value
End Property
Public Property Get PostDate()
PostDate = news.PostDate
End Property<\/p>\n

Public Function SelectOne()
Dim rs : Set rs = db.ExecuteSp("News_SelectOne", NewsID)
If Not (rs.BOF or rs.EOF) Then
With Me
.NewsID = rs("NewsID")
.ClassID = rs("ClassID")
.ClassName = rs("ClassName")
.Title = rs("Title")
Dim tmpContent : tmpContent = rs("Content")
.Content = tmpContent
.Picture = rs("Picture")
.IsCommend = rs("IsCommend")
.Hits = rs("Hits")
.PostDate = rs("PostDate")
End With
SelectOne = True
Else
SelectOne = False
End If
End Function<\/p>\n

Public Function SelectTop(ByVal iCount, ByVal iClassID)
Set SelectTop = db.Execute("Select TOP " & iCount & " NewsID, News.ClassID, Class.ClassName, Title, Content, Picture, IsCommend, Hits, PostDate FROM [News] LEFT JOIN [Class] ON [Class].[ClassID] = [News].[ClassID] Where News.[ClassID] = " & iClassID & " orDER BY NewsID DESC")
End Function<\/p>\n

Public Function SelectAll()
Set SelectAll = db.ExecuteDataTableSp("News_SelectAll", Null)
End Function<\/p>\n

Public Function SelectAllByClassID()
Set SelectAllByClassID = db.ExecuteDataTableSp("News_SelectAllByClassID", ClassID)
End Function<\/p>\n

Public Function Insert()
NewsID = db.InsertSp("News_Insert", Array(ClassID, Title, Content, Picture, IsCommend, Hits))
Insert = NewsID
End Function<\/p>\n

Public Function Update()
Update = db.ExecuteNonQuerySp("News_Update", Array(ClassID, Title, Content, Picture, IsCommend, Request.Form("Hits"), NewsID)) > 0
End Function<\/p>\n

Public Function Delete()
Delete = db.ExecuteNonQuerySp("News_Delete", NewsID) > 0
End Function<\/p>\n

Public Function BatchDelete(ByVal NewsIDs)
BatchDelete = db.ExecuteNonQuery("Delete * FROM [News] Where NewsID IN (" & NewsIDs & ")")
End Function<\/p>\n

Public Function TopPicNews(ByVal iClassID)
Set TopPicNews = db.ExecuteDataTableSp("News_SelectTopPic", iClassID)
End Function<\/p>\n

Private Sub Class_Initialize()
Set db = New Oledb
Set news = New DataNews
End Sub
Private Sub Class_Terminate()
Set db = Nothing
Set news = Nothing
End Sub<\/p>\n

End Class
%><\/p><\/blockquote>\n

3.\u4e1a\u52a1\u903b\u8f91\u5c42\uff1a
\/Class\/Bll\/News.asp<\/b><\/span><\/p>\n

<!–#include virtual="\/Class\/Dal\/News.asp"–>
<%
Class BllNews<\/p>\n

Private v
Private e
Private news<\/p>\n

'NewsID
Public Property Let NewsID(ByVal value)
If Not IsEmpty(value) And v.IsNum(v.SafeNo(value)) Then
news.NewsID = CInt(v.SafeNo(val<\/p>\n

ue))
Else
news.NewsID = 0
e.Message = "NewsID\u53c2\u6570\u9519\u8bef"
End If
End Property
Public Property Get NewsID()
NewsID = news.NewsID
End Property<\/p>\n

'ClassID
Public Property Let ClassID(ByVal value)
If Not IsEmpty(value) And v.IsNum(v.SafeNo(value)) Then
news.ClassID = CInt(v.SafeNo(value))
Else
news.ClassID = 0
e.Message = "ClassID\u53c2\u6570\u9519\u8bef"
End If
End Property
Public Property Get ClassID()
ClassID = news.ClassID
End Property<\/p>\n

'ClassName
Public Property Let ClassName(ByVal value)
news.ClassName = value
End Property
Public Property Get ClassName()
ClassName = news.ClassName
End Property<\/p>\n

'Title
Public Property Let Title(ByVal value)
If v.Limit(value, 1, 30) Then
news.Title = value
Else
If IsNull(value) or IsEmpty(value) or value = "" Then
news.Title = ""
e.Message = "\u6807\u9898\u4e0d\u5141\u8bb8\u4e3a\u7a7a"
Else
news.Title = Left(value, 30)
e.Message = "\u6807\u9898\u5b57\u7b26\u957f\u5ea6\u8d85\u8fc730"
End If
End If
End Property
Public Property Get Title()
Title = news.Title
End Property<\/p>\n

'Content
Public Property Let Content(ByVal value)
If IsNull(value) or IsEmpty(value) or value = "" Then
news.Content = ""
e.Message = "\u5185\u5bb9\u4e0d\u5141\u8bb8\u4e3a\u7a7a"
Else
news.Content = value
End If
End Property
Public Property Get Content()
Content = news.Content
End Property<\/p>\n

'Picture
Public Property Let Picture(ByVal value)
news.Picture = value
End Property
Public Property Get Picture()
Picture = news.Picture
End Property<\/p>\n

'IsCommend
Public Property Let IsCommend(ByVal value)
news.IsCommend = CBool(value)
End Property
Public Property Get IsCommend()
IsCommend = news.IsCommend
End Property<\/p>\n

'Hits
Public Property Let Hits(ByVal value)
If Not IsEmpty(value) And v.IsNum(v.SafeNo(value)) Then
news.Hits = CInt(v.SafeNo(value))
Else
news.Hits = 0
e.Message = "\u70b9\u51fb\u6570\u8bbe\u7f6e\u9519\u8bef"
End If
End Property
Public Property Get Hits()
Hits = news.Hits
If IsEmpty(news.Hits) Then Hits = 0
End Property<\/p>\n

'PostDate
Public Property Let PostDate(ByVal value)
news.PostDate = value
End Property
Public Property Get PostDate()
PostDate = FormatDateTime(CDate(news.PostDate), 1)
End Property<\/p>\n

Public Sub Throw()
e.Throw()
End Sub<\/p>\n

Public Function SelectOne()
NewsID = NewsID
If Not IsEmpty(NewsID) Then
SelectOne = news.SelectOne()
If SelectOne = False Then
e.Message = "\u53c2\u6570\u9519\u8bef\uff0c\u8be5\u4fe1\u606f\u4e0d\u5b58\u5728\u6216\u5df2\u88ab\u5220\u9664"
End If
End If
e.Throw()
End Function<\/p>\n

Public Function SelectTop(ByVal iCount, ByVal iClassID)
Set SelectTop = news.SelectTop(iCount, iClassID)
End Function<\/p>\n

Public Function SelectAll()
Set SelectAll = news.SelectAll()
End Function<\/p>\n

Public Function SelectAllByClassID()
Set SelectAllByClassID = news.SelectAllByClassID()
End Function<\/p>\n

Public Sub Insert()
ClassID = ClassID
Title = Title
Content = Content
Picture = Picture
IsCommend = IsCommend
Hits = Hits
e.Target = "\/admin\/NewsForm.asp"
e.Throw()
news.Insert()
If Me.NewsID > 0 Then
e.Message = "\u4fe1\u606f\u6dfb\u52a0\u6210\u529f\uff0c\u6b63\u5728\u8f6c\u5230\u5217\u8868"
e.Target = "\/admin\/NewsList.asp"
Else
e.Message = "\u4fe1\u606f\u6dfb\u52a0\u5931\u8d25\uff0c\u8bf7\u68c0\u67e5\u8f93\u5165"
End If
e.Throw()
End Sub<\/p>\n

Public Sub Update()
e.Target = "\/admin\/NewsList.asp"
If news.Update() Then
e.Message = "\u4fe1\u606f\u66f4\u65b0\u6210\u529f,\u6b63\u5728\u8fd4\u56de…"
Else
e.Message = "\u4fe1\u606f\u66f4\u65b0\u5931\u8d25\uff0c\u8bf7\u786e\u8ba4\u53c2\u6570\u662f\u5426\u6b63\u786e\u6216\u4fe1\u606f\u662f\u5426\u5b58\u5728"
End If
e.Throw()
End Sub<\/p>\n

Public Sub UpdateCount()
If Cookie("News" & Me.NewsID) = "" Then
news.UpdateCount()
Call Cookie.Add("News" & Me.NewsID, 1, 1)
End If
End Sub<\/p>\n

Public Sub Delete()
e.Target = "\/admin\/NewsList.asp"
If news.Delete() Then
e.Message = "\u4fe1\u606f\u5220\u9664\u6210\u529f,\u6b63\u5728\u8fd4\u56de…"
Else
e.Message = "\u4fe1\u606f\u5220\u9664\u5931\u8d25\uff0c\u8bf7\u786e\u8ba4\u53c2\u6570\u662f\u5426\u6b63\u786e\u6216\u4fe1\u606f\u662f\u5426\u5b58\u5728"
End If
e.Throw()
End Sub<\/p>\n

Public Sub BatchDelete(ByVal NewsIDs)
e.Target = "\/admin\/NewsList.asp"
Dim Rows : Rows = news.BatchDelete(NewsIDs)
If Rows > 0 Then
e.Message = "\u6210\u529f\u5220\u9664\u4fe1\u606f " & Rows & " \u6761,\u6b63\u5728\u8fd4\u56de…"
Else
e.Message = "\u4fe1\u606f\u5220\u9664\u5931\u8d25\uff0c\u8bf7\u786e\u8ba4\u53c2\u6570\u662f\u5426\u6b63\u786e\u6216\u4fe1\u606f\u662f\u5426\u5b58\u5728" & NewsIDs
End If
e.Throw()
End Sub<\/p>\n

Public Sub ShowTopNews(ByVal iCount, ByVal iClassID)
Dim Rs : Set Rs = SelectTop(iCount, iClassID)
If Not (Rs.BOF or Rs.EOF) Then
%>
<TABLE cellSpacing=0 cellPadding=0 width=330 border=0>
<TBODY>
<%
While Not Rs.EOF
%>
<TR>
<TD height=20><IMG style="MARGIN-RIGHT: 6px"
height=3 src="images\/mt02_i01.gif" width=4
align=absMiddle><A
href="Detail.asp?ID="NewsID")%>" target="_blank"><%=Rs("Title")%>A><FONT
color=#008f7e>\/<%=FormatDate(Rs("PostDate"))%>FONT>TD>
TR>
<%
Rs.MoveNext()
Wend
Set Rs = Nothing
%>
TBODY>
TABLE>
<%
End If
End Sub<\/p>\n

Public Sub ShowTopPicNews(ByVal iCount, ByVal iClassID)
Dim Rs : Set Rs = SelectTop(iCount, iClassID)
Call ListRow(2, 2, Rs)
End Sub<\/p>\n

Public Function TopPicNews(ByVal iClassID)
Set TopPicNews = news.TopPicNews(iClassID)
End Function<\/p>\n

Private Sub Class_Initialize()
Set v = New Validator
Set e = New Exception
Set news = New DalNews
End Sub
Private Sub Class_Terminate()
Set v = Nothing
Set e = Nothing
Set news = Nothing
End Sub<\/p>\n

Private Function FormatDate(ByVal daPostDate)
daPostDate = CDate(daPostDate)
FormatDate = Right(Year(daPostDate), 2) & "." & Month(daPostDate) & "." & Day(daPostDate)
End Function<\/p>\n

Publi<\/p>\n

c Function ListRow(ByVal x,ByVal y,ByVal Rs)
With Response
If (Rs.Eof or Rs.Bof) Then Exit Function
If x <=0 Then Exit Function End If
If y<=0 Then y = 0 End If
For i = 0 to x
.Write "<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

1.\u6570\u636e\u6a21\u578b\u5c42\uff1a\/class\/Data\/News.asp <%Class … \u7ee7\u7eed\u9605\u8bfb →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[13],"class_list":["post-21","post","type-post","status-publish","format-standard","hentry","category-xxbj","tag-asp"],"_links":{"self":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/21","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=21"}],"version-history":[{"count":0,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/21\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=21"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=21"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=21"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}