function.asp

ASP编写的一个公司网站的源程序

<%
Private sub DispProType(PID)
	Dim rs
	Dim StrSQL
	Dim i
	Dim Name
	Dim IsOpen

	Set rs=Server.CreateObject("ADODB.RecordSet")
	StrSQL="select * from ProType where "
	StrSQL=StrSQL&"Parent_Id= " & PID &""
	StrSQL=StrSQL&" order by Parent_Id,OrderLine"
	rs.CursorLocation=3
	rs.Open StrSQL,conn,adOpenKeyset ,adLockReadOnly 
	i=0

	if not rs.EOF then
		dim RecordCount,countstart,countend,total
		RecordCount=rs.RecordCount
		countstart=1
		total=RecordCount 
		countend=1 
		do while not rs.eof
			i=i+1
			if i=RecordCount then
				 Symbol="└"
			else
			     Symbol="├"
		    end if
		    name = rs("Type_Name")
			if rs("State")="0" then
				IsOpen="<a href=Protypemanage.asp?opr=set&state=1&ID="&rs("type_ID")&" onclick='return deleted(""开放类别"",this.href);'><u>[开放]</u></a>"
			else
				IsOpen="<a href=Protypemanage.asp?opr=set&state=0&ID="&rs("type_ID")&"  onclick='return deleted(""关闭类别"",this.href);'><font color='red'><u>[关闭]</u></font></a>"
			end if
	
			response.write "<tr>"
			response.write "<td align='left' nowrap>"
			response.write Symbolf&Symbol&Replace(name,"''","'")
			response.write "</td>"
			response.write "<td align='left' nowrap>"

			response.Write "</td>"
			response.write "<td align='left' nowrap colspan=3 width=150>"
			Response.Write  IsOpen&"&nbsp;&nbsp;&nbsp;"
			response.Write "<a href='ProTypeEdit.asp?Parent_ID="&rs("Parent_ID")&"&Type_ID="&rs("Type_ID")&"'><u>[修改]</u></a>&nbsp;&nbsp;&nbsp;"
			response.Write "<a href='Protypemanage.asp?opr=del&Parent_ID="&rs("Parent_ID")&"&ID="&rs("Type_ID")&"' onclick='return deleted(""删除类别"",this.href);'><u>[删除]</u></a>"
			Response.Write "</td>"
			response.write "</tr>"
			
			if i=RecordCount then
					Symbolf=Symbolf&"　　"
			else
					Symbolf=Symbolf&"│　"
			end if
			
			DispProType rs("Type_ID")
			Symbolf=Left(Symbolf,len(Symbolf)-2)

			rs.movenext

		loop
		rs.Close
	
	end if
end sub

Private sub DispProTypeSel(PID,Type_ID)
	Dim rs
	Dim StrSQL
	Dim i
	Dim Name
	Dim IsOpen

	Set rs=Server.CreateObject("ADODB.RecordSet")
	StrSQL="select * from ProType where "
	StrSQL=StrSQL&"Parent_Id= " & PID &""
	StrSQL=StrSQL&" order by Parent_Id,OrderLine"
	rs.CursorLocation=3
	rs.Open StrSQL,conn,adOpenKeyset ,adLockReadOnly 
	i=0
	if not rs.EOF then
		dim RecordCount,countstart,countend,total
		RecordCount=rs.RecordCount
		do while not rs.eof
			i=i+1
			if i=RecordCount then
				 Symbol="└"
			else
			     Symbol="├"
		    end if
		    name = rs("Type_Name")
	
	
			response.Write "<option value="&rs("Type_ID")&" "
			IF rs("Type_ID")=Type_ID then 
				Response.Write " selected"
			End IF	
			Response.Write ">"
			response.write Symbolf&Symbol&Replace(name,"''","'")
			response.Write "</option>"
	
	
			
			if i=RecordCount then
					Symbolf=Symbolf&"　　"
			else
					Symbolf=Symbolf&"│　"
			end if
			
			DispProTypeSel rs("Type_ID"),Type_ID
			Symbolf=Left(Symbolf,len(Symbolf)-2)

			rs.movenext
		loop
		rs.Close
	
	end if
end sub
%>