|
|
<%
'/////////////////////////////////////////////////////////////////////////////////////////
'作 用：新聞信息明細(xì)
'注 意：
' 1、參數(shù)：標(biāo)題長(zhǎng)度TitleLen, 頁(yè)記錄Num, 頁(yè)列Cols, 日期格式DateSkins；
' 2、TitleLen，一個(gè)漢字為2字節(jié)，一個(gè)英文為1字節(jié)；
' 3、日期格式：格式1 2005年4月17日 格式2 2005-4-17 格式5 2005-04-17
' 4、Num必須是Cols的公倍數(shù)
' 5、模糊查詢時(shí)查詢文章標(biāo)題和文章內(nèi)容
'/////////////////////////////////////////////////////////////////////////////////////////
Dim ArtTitle_Show, ArtContent_Show, ArtHits_Show, ArtUpdateTime_Show
ArtID = Trim(Request.QueryString("ID"))
If IsNumeric(ArtID) = True Then
SqlShow = "select ArtTitle, ArtOriginalFileName, ArtSaveFileName, ArtSavePathFileName, ArtContent, ArtHits, ArtUpdateTime from ArticleList00 where ArtID = "&ArtID&" order by ArtRank"
set RsShow = server.CreateObject("adodb.recordset")
RsShow.open SqlShow, objConn, 1, 2
if Not( RsShow.eof or RsShow.bof ) then
If IsNumeric(RsShow("ArtHits")) = False Then
RsShow("ArtHits") = 1
RsShow.update
Else
RsShow("ArtHits") = RsShow("ArtHits") + 1
RsShow.update
End If
ArtTitle_Show = RsShow("ArtTitle")
ArtContent_Show = RsShow("ArtContent")
ArtHits_Show = RsShow("ArtHits")
ArtUpdateTime_Show = RsShow("ArtUpdateTime")
end if
RsShow.close
set RsShow = nothing
End If
%>
| ·Welcome to our websit |
Issuing date:
<% = GetCurrentDate(ArtUpdateTime_Show,5) %>
Browsing times:
<% = ArtHits_Show %>
|
|
|
