정적 생성에서 관련 기사 목록을 실현하십시오

다음은 코드 조각입니다.

<%

'==========================================

'프로세스 이름 : 쇼 콘 2

'기능 : 관련 기사 표시

'매개 변수 : ArticlEnum ---- 얼마나 많은 기사가 표시되는지

'Titlelen ---- 제목의 캐릭터 수, 한 명의 중국어 = 두 명의 영어 문자

'==========================================

서브 쇼 코렐 라브 (Articlenum, Titlelen)

Dim Rs, SQL

Dim Stry, Arrkey, i

Articlenum> 0이고 articlenum <= 100 인 경우

SQL = 상단 및 Articlenum을 선택하십시오

또 다른

SQL = 상위 5를 선택하십시오

끝 If

'사용 |. 키워드를 나누기 위해 기호

strkey = mid (RS (키), 2, 렌 (RS (키)) -2)

악기 (strkey, |)> 1이면

arrkey = split (stry, |)

strkey = (( '% | & arrkey (0) & |%'와 같은 키

i = 1 to ubound (arrkey)의 경우

strkey = strkey & 또는 ( '% | & arrkey (i) & |%'와 같은 키

다음

stry = stry &)

또 다른

strkey = ( '% | & strkey & |%'와 같은 키

끝 If

sql = & id, 제목, 저자, 날짜, hits, l.layoutid = l.layoutid = layoutid = false = true a nd & strkey & and id <> & id & order. Id desc

set rs = const.execute (SQL)

Titlelen <0 또는 Titlelen> 255 인 경우 tintlelen = 50

rs.bof와 rs.eof라면

Response.Write에는 관련 기사가 없습니다

또 다른

rs.eof가 아니라

Response.write <a href = '& rs (layoutfilename) &? id = & rs (id) &'기사 제목 : & rs (title) & vbcrlf & article 저자 : & rs (저자) & vbcrlf & update 시간 : & rs (날짜) & vbcrlf & clicks : & rs (hits) & '> & gottopic (rs (title), titlelen) & </a>

rs.movenext

고리

끝 If

Rs.Close

RS = 아무것도 설정하지 않습니다

종료 서브

%>

pencat = replace (pencat, [xianghuanlist], showcocrelative (5,20))

다음은 코드 조각입니다.

<%

'==========================================

'프로세스 이름 : 쇼 콘 2

'기능 : 관련 기사 표시

'매개 변수 : ArticlEnum ---- 얼마나 많은 기사가 표시되는지

'Titlelen ---- 제목의 캐릭터 수, 한 명의 중국어 = 두 명의 영어 문자

'==========================================

서브 쇼 코렐 라브 (Articlenum, Titlelen)

Dim Rs, SQL

Dim Stry, Arrkey, i

Articlenum> 0이고 articlenum <= 100 인 경우

SQL = 상단 및 Articlenum을 선택하십시오

또 다른

SQL = 상위 5를 선택하십시오

끝 If

'사용 |. 키워드를 나누기 위해 기호

strkey = mid (RS (키), 2, 렌 (RS (키)) -2)

악기 (strkey, |)> 1이면

arrkey = split (stry, |)

strkey = (( '% | & arrkey (0) & |%'와 같은 키

i = 1 to ubound (arrkey)의 경우

strkey = strkey & 또는 ( '% | & arrkey (i) & |%'와 같은 키

다음

stry = stry &)

또 다른

strkey = ( '% | & strkey & |%'와 같은 키

끝 If

sql = & id, 제목, 저자, 날짜, hits, l.layoutid = l.layoutid = layoutid = false = true a nd & strkey & and id <> & id & order. Id desc

set rs = const.execute (SQL)

Titlelen <0 또는 Titlelen> 255 인 경우 tintlelen = 50

rs.bof와 rs.eof라면

Response.Write에는 관련 기사가 없습니다

또 다른

rs.eof가 아니라

Response.write <a href = '& rs (layoutfilename) &? id = & rs (id) &'기사 제목 : & rs (title) & vbcrlf & article 저자 : & rs (저자) & vbcrlf & update 시간 : & rs (날짜) & vbcrlf & clicks : & rs (hits) & '> & gottopic (rs (title), titlelen) & </a>

rs.movenext

고리

끝 If

Rs.Close

RS = 아무것도 설정하지 않습니다

종료 서브

%>

pencat = replace (pencat, [xianghuanlist], showcocrelative (5,20))