newshownews.asp

个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站

<%
'-------------测试代码参数设置---------------------
'dim rowNum,showNum,sql,linkField,fieldName,gapStr,styleStr,target
'rowNum=5
'showNum="4,4,4,4"
'sql="select top 20 * from articles"
'linkField="id"
'fieldName="title"
'gapStr=""
'link="#"
'styleStr="font-size:12px;"
'target=0
'dbstr="../"

'Call showClass(rowNum,showNum,sql,fieldName,gapStr,styleStr,target)
'----------------------------------------

function showClass(rowNum,showNum,sql,fieldName,gapStr,styleStr,target)
 		'rowNum 需要分几行显示
	 	'showNum 每行显示数目，如果每行显示数目不一样，则以逗号","隔开，
		'逗号数目比行数少一,如：分3行显示，则设置前两行数目即可："5,8"等等，
		'sql 查询语句
		'linkField 链接字段名
		'fieldName 显示字段的名字
		'gapStr 显示间隔符号
		'link 链接网址
		'styleStr 链接的样式表达式
		'target 显示链接网址的方式 0 为本页 1 为新开窗口
		
'-------------中间变量------------------
dim i,j,k					'循环变量
dim recordNum,tempRow,arrShowNum	'行数数组
dim rs,conn

'--------------变量初始化---------------
set conn=getconn()
set rs=getrs()

i=0
j=0
k=0
arrShowNum=split(showNum,",")
if(target=0) then
	target="_self"
else
	target="_blank"
end if

'------------------分行显示分类项目---------------------------
rs.open sql,conn,1,1
recordNum=rs.recordcount

'on error resume next		'出错继续
if not rs.eof and not rs.bof then

for j=0 to rowNum-1
	if(InStr(showNum,",")>0 and j<rowNum-1) then 
	
		tempRow=arrShowNum(j)	'如果设置每行都一样
		for i=0 to tempRow-1
			if(rs.eof) then exit for
%>
			<font size="2"><a style="<%=styleStr%>" href='javascript:void(0);' onClick='javascript:showUpmenu("<%=classcode(k)%>");' target="<%=target%>"><%=rs(fieldName)%></a>
			<%if(i<tempRow-1) then response.Write(gapStr)%>
			</font>
			<%
			rs.movenext
			k=k+1
		next
		response.write("<br/>")
	else
		while not rs.bof and not rs.eof
			k=k+1
%>			
			<font size="2">
			<a style="<%=styleStr%>" href="javascript:void(0)" onClick='javascript:showUpmenu("<%=k%>");' target="<%=target%>"><%=rs(fieldName)%></a>
			<%if(k<>recordNum) then response.Write(gapStr)%>
			</font>
			<%
			rs.movenext
		wend
	end if
next

end if

	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
'------------------------------------------
end function
%>