print.asp

功能齐全的oa系统

<%
Function GetMaxCount(RS)
	Dim i,MaxID
	MaxID = 0
	For i = LBound(RS,2) To UBound(RS,2)
		If MaxID < RS(2,i) Then
			MaxID = RS(2,i)
		End If
	Next
	GetMaxCount = MaxID
End Function
	
Sub GetPrint(ObjDB,ID)
	Dim IntID,ObjRS
	Dim StrSQL,ParentID
	Dim ThisCount,IntMax
	Dim IntCompare,RS,IntThisCount

	Set RS = Server.CreateObject ("ADODB.RecordSet")
	IntID = ID

	StrSQL = "Select ParentID,id from t_OA_Public_Vote where ID = '" & IntID & "'"
	RS.Open StrSQL,ObjDB
	ParentID = RS("ParentID")
	RS.Close 
 
	StrSQL = "SELECT MAX(TicketCount) maxnu FROM t_OA_Public_Vote WHERE (ParentID = " &ParentID & ") AND (SubID <> 0)"
	RS.Open StrSQL,ObjDB
	IntMax = RS("maxnu")
	RS.Close 
	
	StrSQL = "Select TicketCount from t_OA_Public_Vote where ID = " & IntID
	RS.Open StrSQL,ObjDB
	IntThisCount = RS("TicketCount")
	RS.Close 
	Set RS = Nothing
	IntCompare = IntThisCount/Intmax
%>
	<img Src="E:\韩冰洋\Images\PIC\BMP\00.jpg" width=300 * <%=IntCompare%> height=20>
<%
	End Sub
%>