📄 cls_template.asp
字号:
Dim TempStr,i
WidthPercent=100/CLng(Parameter(3))
FriendList=EA_DBO.Get_Friend_List(Parameter(1),Parameter(0),Parameter(2))
TempStr="<table border=""0"" cellpadding=""2"" cellspacing=""2"" align=""center"" width=""100%"">"
If IsArray(FriendList) Then
TempStr=TempStr&"<tr>"
For i=0 To UBound(FriendList,2)
If Parameter(2)="1" Then
TempStr=TempStr&"<td width="""&WidthPercent&"%"" align=""center""><a href="""&FriendList(1,i)&""" target=""_blank""><img src="""&FriendList(2,i)&""" border=0 align=""absmiddle"" alt="""&FriendList(0,i)&"""></a></td>"
Else
TempStr=TempStr&"<td width="""&WidthPercent&"%"" align=""center"">·<a href="""&FriendList(1,i)&""" target=""_blank"" title="""&FriendList(0,i)&""">"&FriendList(0,i)&"</a>·</td>"
End If
If (i+1) Mod CLng(Parameter(3))=0 Then TempStr=TempStr&"</tr><tr>"
Next
If i Mod CLng(Parameter(3))=0 Then TempStr=TempStr&"</tr>"
End If
TempStr=TempStr&"</table>"
Load_Friend=TempStr
End Function
Private Function Load_DisArticle(Parameter)
Dim TempStr,TempArray,i
TempArray=EA_DBO.Get_DisColumn(Parameter(1),Parameter(0))
TempStr="<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
If IsArray(TempArray) Then
TempStr=TempStr&"<tr>"
For i=0 To UBound(TempArray,2)
TempStr=TempStr&"<td align=""left"" width=""55%""><a href=""ArticleList/Article_"&TempArray(0,i)&"_AddDate_Desc_1.Htm"">"&TempArray(1,i)&"</a></td>"
TempStr=TempStr&"<td align=""center"">"
Select Case Parameter(2)
Case "1"
TempStr=TempStr&" 文章总数："&TempArray(2,i)
Case "2"
TempStr=TempStr&" 今日更新："&TempArray(3,i)
End Select
TempStr=TempStr&"</td>"
If (i+1) Mod CLng(Parameter(3))=0 Then TempStr=TempStr&"</tr><tr>"
Next
If i Mod CLng(Parameter(3))=0 Then TempStr=TempStr&"</tr>"
End If
TempStr=TempStr&"</table>"
Load_DisArticle=TempStr
End Function
Private Function Load_ColumnList(Parameter)
Dim TempStr,ds8,i,j,MainId,URL,URL2
ds8=EA_DBO.Get_Column_List()
TempStr="<table width=""98%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""0"">"
If IsArray(ds8) Then
For i=0 To Ubound(ds8,2)
URL=EA_Pub.Cov_ColumnPath(ds8(0,i),EA_Pub.SysInfo(18))
URL2=EA_Pub.Cov_ColumnPath(MainId,EA_Pub.SysInfo(18))
If Parameter(0)="0" Then
If Len(ds8(2,i))=4 Then
TempStr=TempStr&"<tr bgcolor=""efefef"">"
TempStr=TempStr&"<td width=""16"" align=""center""><img src=""Images/bullet1.gif"" width=""16"" height=""16"" align=""absmiddle""></td>"
TempStr=TempStr&"<td><a href="""&URL&""" title="""&ds8(3,i)&"""><strong>"&ds8(1,i)&"</strong></a></td>"
TempStr=TempStr&"</tr>"
If i+1<=UBound(ds8,2) Then
If Len(ds8(2,i+1))>4 Then
TempStr=TempStr&"<tr bgcolor=""#FAFAFA"">"
TempStr=TempStr&"<td> </td>"
TempStr=TempStr&"<td><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
TempStr=TempStr&"<tr height=""20"">"
End If
End If
j=1
Else
TempStr=TempStr&"<td align=""left""><a href="""&URL&""" title="""&ds8(3,i)&""">"
TempStr=TempStr&ds8(1,i)&"</a></td>"
j=j+1
If j>=CInt(Parameter(1))+1 Then TempStr=TempStr&"</tr><tr bgcolor=""ffffff""><td colspan="""&CInt(Parameter(1))+1&"""><hr size=1 width=""95%""></hr></td></tr><tr height=""20"">":j=1
If i+1<=UBound(ds8,2) Then
If Len(ds8(2,i+1))=4 Then
TempStr=TempStr&"</tr></table></td></tr>"
j=0
End if
ElseIf i+1>UBound(ds8,2) Then
TempStr=TempStr&"</tr></table></td></tr>"
End If
End If
Else
If Len(ds8(2,i))=4 Then
MainId=ds8(0,i)
TempStr=TempStr&"<tr>"
TempStr=TempStr&"<td bgcolor=""efefef"" width=""25%""><img src=""Images/bullet1.gif"" width=""16"" height=""16"" align=""absmiddle""><a href="""&URL&""" title="""&ds8(3,i)&"""><strong>"&ds8(1,i)&"</strong></a></td>"
j=1
If i+1<=UBound(ds8,2) Then
If Len(ds8(2,i+1))=4 Then
TempStr=TempStr&"</tr>"
Else
TempStr=TempStr&"<td bgcolor=""ffffff"">"
End If
End If
Else
If j<>0 Then
TempStr=TempStr&"<a href="""&URL&""" title="""&ds8(3,i)&""">"
TempStr=TempStr&ds8(1,i)&"</a> | "
j=j+1
If j-1>=CInt(Parameter(1)) Then TempStr=TempStr&"<a href="""&URL2&""" title=""点击浏览更多"">更多>></a></td></tr>":j=0
End If
End If
End If
Next
End If
TempStr=TempStr&"</table>"
Load_ColumnList=TempStr
End Function
Private Function Get_ArticleList(Parameter)
'参数一：栏目id，0=全系统
'参数二：类型，0=最新，1=推荐，2=专题，3=图片，4=热门
'参数三：文章数
'参数四：标题长度
'参数五：是否显示栏目名称
'参数六：是否显示发布日期
'参数七：显示样式，0=文本，1=图片
'参数八：每行列数
'参数九：是否显示新文章标记，0=否，1=是
'参数十：是否新开窗口，0=否，1=是
'参数十一：是否显示作者，0=否，1=是
'参数十二：是否显示文章类型，0=否，1=是
Dim TempArray
TempArray=EA_DBO.Get_Article_List(Parameter(2),Parameter(0),Parameter(1),Parameter(12))
If IsArray(TempArray) Then
If Parameter(6)="0" Then
Get_ArticleList=Text_List(TempArray,CInt(Parameter(4)),CInt(Parameter(5)),CInt(Parameter(3)),CInt(Parameter(7)),CInt(Parameter(8)),CInt(Parameter(9)),CInt(Parameter(10)),CInt(Parameter(11)))
Else
Get_ArticleList=Img_List(TempArray,CInt(Parameter(4)),CInt(Parameter(5)),CInt(Parameter(3)),CInt(Parameter(7)),CInt(Parameter(8)),CInt(Parameter(9)),CInt(Parameter(10)))
End If
Else
Get_ArticleList=" ·暂无"
End If
End Function
Public Function Text_List(DataArray,IsShowSort,IsShowDate,TitleLen,RowNum,IsShowNewTag,IsNewTarget,IsShowAuthor,IsShowFileType)
Dim TempStr
If IsArray(DataArray) Then
TempStr="<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
TempStr=TempStr&"<tr>"
For i=0 To UBound(DataArray,2)
TempStr=TempStr&"<td>"
If IsShowSort=1 Then TempStr=TempStr&" [<a href="""&EA_Pub.Cov_ColumnPath(DataArray(1,i),EA_Pub.SysInfo(18))&""" target=""_blank"" class=""link-Column"">"&DataArray(2,i)&"</a>]"
If IsShowFileType=1 Then TempStr=TempStr&" "&EA_Pub.Chk_ArticleType(DataArray(6,i),DataArray(7,i))
TempStr=TempStr&" <a href="""&EA_Pub.Cov_ArticlePath(DataArray(0,i),DataArray(5,i),EA_Pub.SysInfo(18))&""""
If IsNewTarget=1 Then TempStr=TempStr&" target=""_blank"""
TempStr=TempStr&" title="""&EA_Pub.Base_HTMLFilter(DataArray(3,i))&""">"
DataArray(3,i)=EA_Pub.Base_HTMLFilter(DataArray(3,i))
DataArray(3,i)=EA_Pub.Cut_Title(DataArray(3,i),TitleLen)
TempStr=TempStr&EA_Pub.Add_ArticleColor(DataArray(4,i),DataArray(3,i))
TempStr=TempStr&"</a>"
If IsShowNewTag=1 Then TempStr=TempStr&EA_Pub.Chk_ArticleTime(DataArray(5,i))
If IsShowAuthor=1 Then
If Len(DataArray(9,i))>0 Then TempStr=TempStr&" [<span class=""link-Author"">"&DataArray(9,i)&"</span>]"
End If
TempStr=TempStr&"</td>"
TempStr=TempStr&"<td align=""right"">"
If IsShowDate=1 Then TempStr=TempStr&"<span class=""link-Date"">["&Month(DataArray(5,i))&"."&Day(DataArray(5,i))&"]</span>"
TempStr=TempStr&" </td>"
If (i+1) Mod RowNum=0 Then TempStr=TempStr&"</tr>"
Next
If (i-1) Mod RowNum<>0 Then TempStr=TempStr&"</tr>"
TempStr=TempStr&"</table>"
End If
Text_List=TempStr
End Function
Public Function Img_List(DataArray,IsShowSort,IsShowDate,TitleLen,RowNum,IsShowNewTag,IsNewTarget,IsShowAuthor)
Dim TempStr
If IsArray(DataArray) Then
TempStr="<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
TempStr=TempStr&"<tr>"
For i=0 To UBound(DataArray,2)
TempStr=TempStr&"<td width=""100"" height=""100""><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""100"" height=""100"">"
TempStr=TempStr&"<tr><td align=""center"" width=""100"" height=""100"">"
TempStr=TempStr&"<a href="""&EA_Pub.Cov_ArticlePath(DataArray(0,i),DataArray(5,i),EA_Pub.SysInfo(18))&""""
If IsNewTarget=1 Then TempStr=TempStr&" target=""_blank"""
TempStr=TempStr&"><img src="""&DataArray(8,i)&""" border=""0"" alt="""&DataArray(3,i)&""" align=absmiddle onload=""javascript:check(this,90,90)"" onmousemove=""javascript:check(this,90,90)""></a></td></tr>"
TempStr=TempStr&"<tr><td align=""center"" height=""22"" width=""100"">"
TempStr=TempStr&"·<a href="""&EA_Pub.Cov_ArticlePath(DataArray(0,i),DataArray(5,i),EA_Pub.SysInfo(18))&""""
If IsNewTarget=1 Then TempStr=TempStr&" target=""_blank"""
TempStr=TempStr&" title="""&EA_Pub.Base_HTMLFilter(DataArray(3,i))&""">"
If IsShowSort=1 Then TempStr=TempStr&" [<a href="""&SysInfo(11)&EA_Pub.Cov_ColumnPath(DataArray(1,i),EA_Pub.SysInfo(18))&""" target=""_blank"" class=""link-Column"">"&DataArray(2,i)&"</a>]"
DataArray(3,i)=EA_Pub.Base_HTMLFilter(DataArray(3,i))
DataArray(3,i)=EA_Pub.Cut_Title(DataArray(3,i),TitleLen)
TempStr=TempStr&EA_Pub.Add_ArticleColor(DataArray(4,i),DataArray(3,i))
TempStr=TempStr&"</a>"
If IsShowNewTag=1 Then TempStr=TempStr&EA_Pub.Chk_ArticleTime(DataArray(5,i))
If IsShowAuthor=1 Then
If Len(DataArray(9,i))>0 Then TempStr=TempStr&" [<span class=""link-Author"">"&DataArray(9,i)&"</span>]"
End If
If IsShowDate=1 Then TempStr=TempStr&" <span class=""link-Date"">"&Month(DataArray(5,i))&"/"&Day(DataArray(5,i))&"</span>"
TempStr=TempStr&"</td></tr></table></td>"
If (i+1) Mod RowNum=0 Then TempStr=TempStr&"</tr>"
Next
If i Mod RowNum<>0 Then TempStr=TempStr&"</tr>"
TempStr=TempStr&"</table>"
End If
Img_List=TempStr
End Function
Public Function PageList (PageCount,iCurrentPage,FieldName,FieldValue)
Dim Url
Dim PageRoot '页列表头
Dim PageFoot '页列表尾
Dim OutStr
Dim i '输出字符串
Url=URLStr(FieldName,FieldValue)
If CLng(iCurrentPage)<=0 Then
iCurrentPage=1
ElseIf CLng(iCurrentPage)>CLng(PageCount) Then
iCurrentPage=PageCount
End if
If iCurrentPage-4<=1 Then
PageRoot=1
Else
PageRoot=iCurrentPage-4
End If
If iCurrentPage+4>=PageCount Then
PageFoot=PageCount
Else
PageFoot=iCurrentPage+4
End If
OutStr="分页："&iCurrentPage&"/"&PageCount&"页 "
If PageRoot=1 Then
If iCurrentPage<=1 Then
OutStr=OutStr&"<font color=888888 face=webdings>9</font></a> "
OutStr=OutStr&"<font color=888888 face=webdings>7</font></a> "
Else
OutStr=OutStr&"<a href='?page=1"
OutStr=OutStr&Url
OutStr=OutStr&"' title=""首页""><font face=webdings>9</font></a> "
OutStr=OutStr&"<a href='?page="&iCurrentPage-1
OutStr=OutStr&Url
OutStr=OutStr&"' title=""上页""><font face=webdings>7</font></a> "
End If
Else
OutStr=OutStr&"<a href='?page=1"
OutStr=OutStr&Url
OutStr=OutStr&"' title=""首页""><font face=webdings>9</font></a>"
OutStr=OutStr&"<a href='?page="&iCurrentPage-1
OutStr=OutStr&Url
OutStr=OutStr&"' title=""上页""><font face=webdings>7</font></a>..."
End If
For i=PageRoot To PageFoot
If i=Cint(iCurrentPage) Then
OutStr=OutStr&"<font color='red'>["+Cstr(i)+"]</font> "
Else
OutStr=OutStr&"<a href='?page="&Cstr(i)
OutStr=OutStr&Url
OutStr=OutStr&"'>["+Cstr(i)+"]</a> "
End If
If i=PageCount Then Exit For
Next
If PageFoot=PageCount Then
If Cint(iCurrentPage)=Cint(PageCount) Then
OutStr=OutStr&"<font color=888888 face=webdings>8</font></a> "
OutStr=OutStr&"<font color=888888 face=webdings>:</font></a>"
Else
OutStr=OutStr&"<a href='?page="&iCurrentPage+1
OutStr=OutStr&Url
OutStr=OutStr&"' title=""下页""><font face=webdings>8</font></a> "
OutStr=OutStr&"<a href='?page="&PageCount
OutStr=OutStr&Url
OutStr=OutStr&"' title=""尾页""><font face=webdings>:</font></a>"
End If
Else
OutStr=OutStr&"... <a href='?page="&iCurrentPage+1
OutStr=OutStr&Url
OutStr=OutStr&"' title=""下页""><font face=webdings>8</font></a> "
OutStr=OutStr&"<a href='?page="&PageCount
OutStr=OutStr&Url
OutStr=OutStr&"' title=""尾页""><font face=webdings>:</font></a>"
End If
OutStr=OutStr&" <INPUT TYPE=text size=3 value="&iCurrentPage&" onmouseover='this.focus();this.select()' NAME=PGNumber> <INPUT TYPE=button id=button1 name=button1 value=GO onclick="&""""&"if(document.all.PGNumber.value>0 && document.all.PGNumber.value<="&PageCount&"){window.location='?Page='+document.all.PGNumber.value+'"&Url&"'}"&""""&" onmouseover='this.focus()' onfocus='this.blur()'>"
PageList=OutStr
End Function
Private Function URLStr(FieldName,FieldValue)
If IsArray(FieldName) And IsArray(FieldValue) Then
Dim i
For i=0 to Ubound(FieldName)
URLStr=URLStr&"&"&Cstr(FieldName(i))&"="&Cstr(FieldValue(i))
Next
End If
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -