topic.asp

结合了某度和AH的个人主页 功能比较完整

<!-- #include file=conn.asp -->
<%
Dim HomeUrl
HomeUrl = "http://"&Request.ServerVariables("server_name")
If Request.ServerVariables("SERVER_PORT") <> "80" Then HomeUrl = HomeUrl & ":" & Request.ServerVariables("SERVER_PORT")
HomeUrl = Lcase(HomeUrl & Request.Servervariables("SCRIPT_NAME"))
HomeUrl = Replace(HomeUrl,"topic.asp","")

DEF_BBS_HomeUrl = ""
        Dim ListNum,StrLen,Points
	'BoardID = Left(Request.QueryString("BoardID"),14)
	ListNum = Left(Request.QueryString("Number"),14)
	StrLen = Left(Request.QueryString("StrLen"),14)
	If isNumeric(StrLen) = False or StrLen = "" Then StrLen = 10
	StrLen = Fix(cCur(StrLen))
	If isNumeric(ListNum) = False or ListNum = "" Then ListNum = 10
	'If isNumeric(BoardID) = False Then BoardID = 0
	'BoardID = Fix(cCur(BoardID))

	ListNum = Fix(cCur(ListNum))
	If ListNum < 1 or ListNum > 100 Then ListNum = 10
	If StrLen < 1 or StrLen > 255 Then StrLen = 255
	
	Dim NewWindow
	NewWindow = Request.QueryString("NewWindow")
	If NewWindow <> "yes" Then
		NewWindow = ""
	Else
		NewWindow = " target=_blank"
	End If

	Dim Rs,SQL,i

	SQL = "select TOP " & ListNum & " ID,name,geshi,count from music Order by id desc"
		
	Set Rs = Conn.ExeCute(SQL)
	Dim Num
	Dim GetData
	If Not rs.Eof Then
		GetData = Rs.GetRows(-1)
		Num = Ubound(GetData,2)
	Else
		Num = -1
	End If
        
	Rs.close
	Set Rs = Nothing
	Response.Write "document.write("""
	For SQL = 0 to Num
                i=i+1
		If GetData(3,SQL) < 0 Then GetData(1,SQL) = KillHTMLLabel(GetData(1,SQL))
		If Len(GetData(1,SQL)) > StrLen/2 Then
			If Len(GetData(1,SQL)) > StrLen Then
				GetData(1,SQL) = Left(GetData(1,SQL),StrLen - 3) & "..."
			End If
		End If
       dim RNUmber
       Randomize 
       RNumber =(Int((6 - 1 + 1) * Rnd + 1)) 
		Response.Write "<tr><td><img src=images/"&RNumber&".gif width=15 height=15>&nbsp;"&i&"&nbsp;<a href=" & HomeUrl & "index1.asp?id=" & GetData(0,SQL) & NewWindow & " onclick='return ind(this.href);'>" & Replace(GetData(1,SQL),"\","\\") & "</a></td><td align=right>"&GetData(2,SQL)&"</td></tr>"
	Next
        Response.Write """);"

%>