文章列表类别

Newasp.InstallDir)
strContent = Replace(strContent, "{$SoftName}", strSoftName)
strContent = Replace(strContent, "{$Title}", Rs("SoftName"))
strContent = Replace(strContent, "{$DateAndTitle}", Rs("SoftTime"))
strContent = Replace(strContent, "{$HtmlFileUrl}", HtmlFileUrl)
strContent = Replace(strContent, "{$ClassName}", ClassName)
strContent = Replace(strContent, "[]", "")
strContent = Replace(strContent, "{$Target}", LinkTarget)
strContent = Replace(strContent, "{$SoftTime}", SoftTime)
strContent = Replace(strContent, "{$SoftHits}", Rs("AllHits"))
strContent = Replace(strContent, "{$ListStyle}", ListStyle)
strContent = Replace(strContent, "{$BestCode}", BestCode)
strContent = Replace(strContent, "{$BestString}", BestString)
Rs.MoveNext
i = i + 1
Loop
strContent = strContent & "</table>"
End If
Set Rs = Nothing
LoadSoftType = strContent
End Function
''================================================
''函数名：ReadSoftType
''作 用：读取软件类型列表
''参 数：str ----原字符串
''================================================
Public Function ReadSoftType(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents

strTemp = str
If InStr(strTemp, "{$ReadSoftType(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadSoftType(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadSoftType(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadSoftType = strTemp
End Function
''================================================
''函数名：LoadUserRank
''作 用：装用户排行列表
''================================================
Public Function LoadUserRank(ByVal stype,ByVal grade,ByVal maxline,ByVal styles)
Dim SQL, Rs, foundsql, strContent, i
Dim ListStyle,username

stype = Newasp.CheckNumeric(stype)
grade = Newasp.CheckNumeric(grade)
maxline = Newasp.CheckNumeric(maxline)
If maxline = 0 Then maxline = 10
If stype = 1 Then
foundsql = "ORDER BY JoinTime DESC,userid DESC"
ElseIf stype = 2 Then
foundsql = "ORDER BY LastTime DESC,userid DESC"
ElseIf stype = 3 Then