⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 inc_page.asp

📁 是一个很好用的通信录源码,可以用在同学朋友等的通信上使用!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
'= Time		    : Created At DEC,21,2003
'= Input        : None
'= Description  : show user's constellation
'=====================================================================
Function Constellation(tBirths,ByRef strConstellation)

	Dim tBirth
	Dim tBirthDay,tBirthMonth,strImg

	tBirth = tBirths
	tBirthDay = Day(tBirth)
	tBirthMonth = Month(tBirth)

	Constellation = "<img width=15 height=15 src=" & GBL_strHomeURL & "images/Constellation/z"
	strImg = "<img  src=" & GBL_strHomeURL & "images/Constellation/z"
	Select Case tBirthMonth
	Case 1
		If tBirthDay >= 21 Then
			Constellation = Constellation & "11.gif alt='水瓶座(" & tBirth & ")<br>" & strImg & "11b.gif>' align=absmiddle>"
			strConstellation = "水瓶座"
		Else
			Constellation = Constellation & "10.gif alt='魔羯座(" & tBirth & ")<br>" & strImg & "10b.gif>' align=absmiddle>"
			strConstellation = "魔羯座"
		End If
	Case 2
		If tBirthDay>=20 Then
			Constellation = Constellation & "12.gif alt='双鱼座(" & tBirth & ")<br>" & strImg & "12b.gif>' align=absmiddle>"
			strConstellation = "双鱼座"
		Else
			Constellation = Constellation & "11.gif alt='水瓶座(" & tBirth & ")<br>" & strImg & "11b.gif>' align=absmiddle>"
			strConstellation = "水瓶座"
		End If
	Case 3
		If tBirthDay>=21 Then
			Constellation = Constellation & "1.gif alt='白羊座 (" & tBirth & ")<br>" & strImg & "1b.gif>' align=absmiddle>"
			strConstellation = "白羊座"
		Else
			Constellation = Constellation & "12.gif alt='双鱼座(" & tBirth & ")<br>" & strImg & "12b.gif>' align=absmiddle>"
			strConstellation = "双鱼座"
		End If
	Case 4
		If tBirthDay>=21 Then
			Constellation = Constellation & "2.gif alt='金牛座 (" & tBirth & ")<br>" & strImg & "2b.gif>' align=absmiddle>"
			strConstellation = "金牛座"
		Else
			Constellation = Constellation & "1.gif alt='白羊座 (" & tBirth & ")<br>" & strImg & "1b.gif>' align=absmiddle>"
			strConstellation = "白羊座"
		End If
	Case 5
		If tBirthDay>=22 Then
			Constellation = Constellation & "3.gif alt='双子座 (" & tBirth & ")<br>" & strImg & "3b.gif>' align=absmiddle>"
			strConstellation = "双子座"
		Else
			Constellation = Constellation & "2.gif alt='金牛座 (" & tBirth & ")<br>" & strImg & "2b.gif>' align=absmiddle>"
			strConstellation = "金牛座"
		End If
	Case 6
		If tBirthDay>=22 Then
			Constellation = Constellation & "4.gif alt='巨蟹座 (" & tBirth & ")<br>" & strImg & "4b.gif>' align=absmiddle>"
			strConstellation = "巨蟹座"
		Else
			Constellation = Constellation & "3.gif alt='双子座 (" & tBirth & ")<br>" & strImg & "3b.gif>' align=absmiddle>"
			strConstellation = "双子座"
		End If
	Case 7
		If tBirthDay>=23 Then
			Constellation = Constellation & "5.gif alt='狮子座 (" & tBirth & ")<br>" & strImg & "5b.gif>' align=absmiddle>"
			strConstellation = "狮子座"
		Else
			Constellation = Constellation & "4.gif alt='巨蟹座 (" & tBirth & ")<br>" & strImg & "4b.gif>' align=absmiddle>"
			strConstellation = "巨蟹座"
		End If
	Case 8
		If tBirthDay>=24 Then
			Constellation = Constellation & "6.gif alt='处女座 (" & tBirth & ")<br>" & strImg & "6b.gif>' align=absmiddle>"
			strConstellation = "处女座"
		Else
			Constellation = Constellation & "5.gif alt='狮子座 (" & tBirth & ")<br>" & strImg & "5b.gif>' align=absmiddle>"
			strConstellation = "狮子座"
		End If
	Case 9
		If tBirthDay>=24 Then
			Constellation = Constellation & "7.gif alt='天秤座 (" & tBirth & ")<br>" & strImg & "7b.gif>' align=absmiddle>"
			strConstellation = "天秤座"
		Else
			Constellation = Constellation & "6.gif alt='处女座 (" & tBirth & ")<br>" & strImg & "6b.gif>' align=absmiddle>"
			strConstellation = "处女座"
		End If
	Case 10
		If tBirthDay>=24 Then
			Constellation = Constellation & "8.gif alt='天蝎座 (" & tBirth & ")<br>" & strImg & "8b.gif>' align=absmiddle>"
			strConstellation = "天蝎座"
		Else
			Constellation = Constellation & "7.gif alt='天秤座 (" & tBirth & ")<br>" & strImg & "7b.gif>' align=absmiddle>"
			strConstellation = "天秤座"
		End If
	Case 11
		If tBirthDay>=23 Then
			Constellation = Constellation & "9.gif alt='射手座 (" & tBirth & ")<br>" & strImg & "9b.gif>' align=absmiddle>"
			strConstellation = "射手座"
		Else
			Constellation = Constellation & "8.gif alt='天蝎座 (" & tBirth & ")<br>" & strImg & "8b.gif>' align=absmiddle>"
			strConstellation = "天蝎座"
		End If
	Case 12
		If tBirthDay>=22 Then
			Constellation = Constellation & "10.gif alt='魔羯座 (" & tBirth & ")<br>" & strImg & "10b.gif>' align=absmiddle>"
			strConstellation = "魔羯座"
		Else
			Constellation = Constellation & "9.gif alt='射手座 (" & tBirth & ")<br>" & strImg & "9b.gif>' align=absmiddle>"
			strConstellation = "射手座"
		End If
	Case Else
		Constellation=""
	End Select

End Function


'=====================================================================
'= Function     : DisplayBirthAnimal(tBirthYear,strAnimal)
'= Time		    : Created At DEC,21,2003
'= Input        : None
'= Description  : show user's birth animal
'=====================================================================
Function DisplayBirthAnimal(tBirths,ByRef strAnimal)

	Dim intTemp,strTmp,strTmp1

	intTemp = Cint(Year(tBirths)) mod 12
	strTmp = "<img width=15 height=15 src=" & GBL_strHomeURL & "images/" & "sx/sx"
	strTmp1 = "<img src=" & GBL_strHomeURL & "images/" & "sx/sx"
	Select Case intTemp
		Case 0: strTmp = strTmp & "9s.gif align=absmiddle alt='申猴(" & tBirths & ")<br>" & strTmp1 & "9.gif>' align=absmiddle>"
				strAnimal = "申猴"
		Case 1: strTmp = strTmp & "10s.gif align=absmiddle alt='酉鸡(" & tBirths & ")<br>" & strTmp1 & "10.gif>' align=absmiddle>"
				strAnimal = "酉鸡"
		Case 2: strTmp = strTmp & "11s.gif align=absmiddle alt='戌狗(" & tBirths & ")<br>" & strTmp1 & "11.gif>' align=absmiddle>"
				strAnimal = "戌狗"
		Case 3: strTmp = strTmp & "12s.gif align=absmiddle alt='亥猪(" & tBirths & ")<br>" & strTmp1 & "12.gif>' align=absmiddle>"
				strAnimal = "亥猪"
		Case 4: strTmp = strTmp & "1s.gif align=absmiddle alt='子鼠(" & tBirths & ")<br>" & strTmp1 & "1.gif>' align=absmiddle>"
				strAnimal = "子鼠"
		Case 5: strTmp = strTmp & "2s.gif align=absmiddle alt='丑牛(" & tBirths & ")<br>" & strTmp1 & "2.gif>' align=absmiddle>"
				strAnimal = "丑牛"
		Case 6: strTmp = strTmp & "3s.gif align=absmiddle alt='寅虎(" & tBirths & ")<br>" & strTmp1 & "3.gif>' align=absmiddle>"
				strAnimal = "寅虎"
		Case 7: strTmp = strTmp & "4s.gif align=absmiddle alt='卯兔(" & tBirths & ")<br>" & strTmp1 & "4.gif>' align=absmiddle>"
				strAnimal = "卯兔"
		Case 8: strTmp = strTmp & "5s.gif align=absmiddle alt='辰龙(" & tBirths & ")<br>" & strTmp1 & "5.gif>' align=absmiddle>"
				strAnimal = "辰龙"
		Case 9: strTmp = strTmp & "6s.gif align=absmiddle alt='巳蛇(" & tBirths & ")<br>" & strTmp1 & "6.gif>' align=absmiddle>"
				strAnimal = "巳蛇"
		Case 10: strTmp = strTmp & "7s.gif align=absmiddle alt='午马(" & tBirths & ")<br>" & strTmp1 & "7.gif>' align=absmiddle>"
				strAnimal = "午马"
		Case 11: strTmp = strTmp & "8s.gif align=absmiddle alt='未羊(" & tBirths & ")<br>" & strTmp1 & "8.gif>' align=absmiddle>"
				strAnimal = "未羊"
		Case Else: strTmp = ""
	End Select
	
	DisplayBirthAnimal = strTmp

End Function


'===================================================================
'= Function    : ConvertLevel(intLevelNum)
'= Time		   : Created At July,4,2004
'= Input       : 
'= Description : 取得用户级别的图标显示
'===================================================================
Function ConvertLevel(intLevelNum)
	Dim intBase,i

	intBase = 50

	ConvertLevel = 0
	
	Dim DEF_UserLevelPoints : DEF_UserLevelPoints = Array(0,12,25,50,80,150,250,400,700,1000,1500,2500,5000,8000,12000,20000,30000,40000,50000,60000,99999)

	For i = Lbound(DEF_UserLevelPoints) To Ubound(DEF_UserLevelPoints)
		If i = Ubound(DEF_UserLevelPoints) Then
			ConvertLevel = i
			Exit For
		End If
		If intLevelNum >= DEF_UserLevelPoints(i) And intLevelNum < DEF_UserLevelPoints(i+1) Then
			ConvertLevel = i
			Exit For
		End If
	Next

End Function


'== 列表样式表
Function TrStyleSet(i)
	If i Mod 2 = 0 Then
		Response.Write "odd"
	Else
		Response.Write "even"
	End If
End Function


'===================================================================
'= Function     : MakeQQShow(intQQ)
'= Time		    : Created At 2006-5-4
'= Input        : qq
'= Description  : make qq show
'===================================================================
Function MakeQQShow(intQQ)
	MakeQQShow = "http://qqshow-user.tencent.com/" & intQQ & "/10/00/"
End Function

'===================================================================
'= Function     : MakeOrder()
'= Time		    : Created At 2006-7-28
'= Input        : 
'= Description  : 排序
'===================================================================
Function MakeOrder(strFieldName,strFieldShow,strUrl)
	Dim strHtmlCode
	Dim strOrder,strOrderBy
	Dim strDiv

	If Instr(strUrl,"?") > 0 Then
		strDiv = "&"
	Else
		strDiv = "?"
	End If

	strOrder = Request("order")
	strOrderBy = Request("orderBy")

	If strOrder = "desc" And strOrderBy = strFieldName Then
		strHtmlCode = "<a title='点击标题按本列降序排列' class='list_title_order' href='" & strUrl & strDiv & "order=asc&orderBy=" & strFieldName & "'>" & strFieldShow & "↓</a>"
	ElseIf strOrder = "asc" And strOrderBy = strFieldName Then
		strHtmlCode = "<a title='点击标题按本列升序排列' class='list_title_order' href='" & strUrl & strDiv & "order=desc&orderBy=" & strFieldName & "'>" & strFieldShow & "↑</a>"
	Else
		strHtmlCode = "<a title='点击标题按本列降序排列' class='list_title_order' href='" & strUrl & strDiv & "order=desc&orderBy=" & strFieldName & "'>" & strFieldShow & "↓↑</a>"

	End If
	MakeOrder = strHtmlCode
End Function

'===================================================================
'= Function     : GetOrder()
'= Time		    : Created At 2006-7-28
'= Input        : 
'= Description  : 取得排序字段
'===================================================================
Function GetOrder()
	Dim strOrder,strOrderBy
	Dim strSql

	strOrder = Request("order")
	strOrderBy = Request("orderBy")
	
	If strOrder <> "" And strOrderBy <> "" Then
		If strOrder = "asc" Then
			strSql = " ORDER BY " & strOrderBy & " ASC"
		Else
			strSql = " ORDER BY " & strOrderBy & " DESC"
		End If
	End If

	GetOrder = strSql
End Function

'===================================================================
'= Function     : GetOrderUrl()
'= Time		    : Created At 2006-7-28
'= Input        : 
'= Description  : 取得排序Url
'===================================================================
Function GetOrderUrl(strUrl)
	Dim strOrder,strOrderBy
	Dim strHtmlCode

	strOrder = Request("order")
	strOrderBy = Request("orderBy")
	
	If strOrder <> "" And strOrderBy <> "" Then
		If Instr(strUrl,"?") > 0 Then
			strHtmlCode = "&order=" & strOrder & "&orderBy=" & strOrderBy
		Else
			strHtmlCode = "?order=" & strOrder & "&orderBy=" & strOrderBy
		End If
	End If

	GetOrderUrl = strUrl & strHtmlCode
End Function
%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -