show.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

				rs.movenext
				loop
			end if
	rs.close:set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "CC_R","id",condition,PageNo,MaxPageSize,linkstr %>
<%End Sub%>
<%Sub SQ1
Call MainTitle(Lang.item("m_500"))
Call ShowQuery
Call Showinfo(Lang.item("m_521"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("g_070")%></td>              
    <th width="220" align="center"><%=Lang.item("g_038")%></td>
  </tr>
                <%
	dim q
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition,linkstr
	if query="" then
		condition=""
		linkstr="action=SQ1"
	else
		condition="where Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%'"
		linkstr="query="&query&"&action=SQ1"
	end if
	sql="select top "&MaxRecord&" Q,SCR from v_SQ1 "&condition&" order by SCR desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"	
	else
		rs.PageSize = MaxPageSize
		rs.absolutepage=PageNo
			i=0
			if i=0 then maxnum=rs(1)
				do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					q=ReadText(rs(0))
					response.write q					
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td>"				
					response.write "<td>"									
					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
				rs.movenext
				loop
			end if
	rs.close:set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "v_SQ1","SCR",condition,PageNo,MaxPageSize,linkstr %>
<%End Sub%>
<%Sub SQ3
Call MainTitle(Lang.item("m_500"))
Call ShowQuery
Call Showinfo(Lang.item("m_531"))
%>

<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("g_073")%></td>              
    <th width="220" align="center"><%=Lang.item("g_038")%></td>
  </tr>
                <%
	dim q
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition,linkstr
	if query="" then
		condition=""
		linkstr="action=SQ3"
	else
		condition="where RefSite like '%"&query&"%'"
		linkstr="query="&query&"&action=SQ3"
	end if
	sql="select top "&MaxRecord&" RefSite,SCR from v_SQ3 "&condition&" order by SCR desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"	
	else
		rs.PageSize = MaxPageSize
		rs.absolutepage=PageNo
			i=0
			if i=0 then maxnum=rs(1)
				do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					q=ReadText(rs(0))
					response.write q					
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td>"				
					response.write "<td>"									
					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
				rs.movenext
				loop
			end if
	rs.close:set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "v_SQ3","SCR",condition,PageNo,MaxPageSize,linkstr %>
<%End Sub%>
<%Sub SQ2
Call MainTitle(Lang.item("m_500"))
Call ShowQuery
Call Showinfo(Lang.item("m_541"))
%>
<table width="600"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="180" align="center"><%=Lang.item("g_070")%></th>
    <th width="120" align="center"><%=Lang.item("g_073")%></th>
    <th width="220" align="center"><%=Lang.item("g_038")%></th>
  </tr>
  <%
	dim q
	dim maxnum,i,barwidth 
	dim rs,sql
	dim condition,linkstr
	if query="" then
		condition=""
		linkstr="action=SQ2"
	else
		condition="where Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%' or RefSite like '%"&query&"%'"
		linkstr="query="&query&"&action=SQ2"
	end if

	sql="select top "&MaxRecord&" Q,RefSite,SCR from v_SQ2 "&condition&" order by SCR desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=3>"&Lang.item("g_045")&"</td></tr>"	
	else
		rs.PageSize = MaxPageSize
		rs.absolutepage=PageNo
			i=0
			if i=0 then maxnum=rs(2)
				do while not rs.eof and i<MaxPageSize
					response.write "<tr class=tablebody1><td>"
					q=ReadText(rs(0))
					response.write q					
					barwidth=FormatNum(rs(2)/maxnum*150,2)
					response.write "</td>"
					response.write "<td>"&rs(1)&"</td>"
					response.write "<td>"									
					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
					response.write rs(2)
					response.write "</td></tr>"
					i=i+1
				rs.movenext
				loop
			end if
	rs.close:set rs=nothing
					%>
</table>
<%	hxshow.showPageInfo "v_SQ2","SCR",condition,PageNo,MaxPageSize,linkstr %>
<%End Sub%>

<%Sub OsCount
Call MainTitle(Lang.item("m_41"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("m_41")%></td>
    <th width="220" align="center"><%=Lang.item("g_038")%></td>
  </tr>
  <%
				dim maxnum,i,barwidth 
				dim rs,sql
				set rs=server.createobject("adodb.recordset")
				sql="select Client,CC from CC_C where left(id,1)=1 order by CC desc,id asc"
				rs.open sql,conn,1,1
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"
				else
					i=0
					if i=0 then maxnum=rs(1)
					if maxnum=0 then maxnum=1
					do while not rs.eof
					response.write "<tr class=tablebody1><td>"
					response.write rs(0)
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%End Sub%>
<%Sub Width
Call MainTitle(Lang.item("m_42"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("m_42")%></th>
    <th width="220" align="center"><%=Lang.item("g_038")%></th>
  </tr>
  <%
				dim maxnum,i,barwidth 
				dim rs,sql
				set rs=server.createobject("adodb.recordset")
				sql="select Client,CC from CC_C where left(id,1)=3 order by CC desc,id asc"
				rs.open sql,conn,1,1
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"
				else
					i=0
					if i=0 then maxnum=rs(1)
					if maxnum=0 then maxnum=1
					do while not rs.eof
					response.write "<tr class=tablebody1><td>"
					response.write rs(0)
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%End Sub%>
<%Sub Browser
Call MainTitle(Lang.item("m_43"))
%>
<table width="500"  align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr bgcolor="#CCCCFF"> 
    <th width="280" align="center"><%=Lang.item("m_43")%></td>
    <th width="220" align="center"><%=Lang.item("g_038")%></td>
  </tr>
  <%
				dim maxnum,i,barwidth 
				dim rs,sql
				set rs=server.createobject("adodb.recordset")
				sql="select Client,CC from CC_C where left(id,1)=2 order by CC desc,id asc"
				rs.open sql,conn,1,1
				if rs.eof then
					response.write "<tr class=tablebody1><td colspan=2>"&Lang.item("g_045")&"</td></tr>"
				else
					i=0
					if i=0 then maxnum=rs(1)
					if maxnum=0 then maxnum=1
					do while not rs.eof
					response.write "<tr class=tablebody1><td>"
					response.write rs(0)
					barwidth=FormatNum(rs(1)/maxnum*150,2)
					response.write "</td><td>"					
 					response.write "<img height=12 align=absmiddle class=PicBar width="&barwidth&"> "   
  					response.write rs(1)
					response.write "</td></tr>"
					i=i+1
					rs.movenext
					loop
					set rs=nothing
				end if
					%>
</table>
<%End Sub%>
<%Sub LastRecord
Call MainTitle(Lang.item("m_02"))
Call ShowQuery%>	
<table width="768" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr id="tabletitlelink" align="center" bgcolor="#CCCCFF"> 
    <th width="70"><%=Lang.item("g_029")%></th>
    <th width="100"><%=Lang.item("g_030")%></th>
    <th width="275"><%=Lang.item("g_031")%></th>
    <th width="285"><%=Lang.item("g_032")%></th>
    <th width="38"><%=Lang.item("g_033")%></th>
  </tr>
  <%
	dim rs,sql
	dim i
	dim condition,linkstr
	dim vpage,referer,q
	if query="" then
		condition="where Dateandtime is not null"
		linkstr="action=V"
	else
		condition="where (Ip like '%"&query&"%' or Page like '%"&query&"%' or Referer like '%"&query&"%') and Dateandtime is not null"
		linkstr="query="&server.HTMLEncode(query)&"&action=V"
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select top "&MaxRecord&" * from CC_V "&condition&" order by Dateandtime desc,id asc"
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<tr class=tablebody1><td colspan=5>"&Lang.item("g_045")&"</td></tr>"	
	else
		i=0
		rs.PageSize = MaxPageSize
		rs.absolutepage=PageNo
		do while not rs.eof and i<MaxPageSize
		response.write "<tr class=tablebody1>"
		response.write "<td align=center>"&formatdatetime(FormatTime(rs("Dateandtime")),3)&"</td>"
		response.write "<td align=center>"
		response.write "<a href=http://union.itlearner.com/ip/ipinfo.asp?ip="&rs("Ip")&" target=_blank title="""&Lang.item("g_074")&""">"
		response.write rs("Ip")
		response.write "</a>"
		response.write "</td>"
		response.write "<td>"
		if rs("Page")="0" then
			vpage=Lang.item("g_053")
			response.write vpage
		else
			vpage=rs("Page")
			response.write "<a href="""&vpage&""" target=_blank title="""&vpage&""">"&hx.OutStr(mid(vpage,8),40)&"</a>"
		end if
		response.write "</td>"
		response.write "<td>"
		if rs("Referer")="0" then
			referer=Lang.item("g_044")
			q=""
			response.write referer
		else
			referer=rs("Referer")
			response.write "<a href="""&referer&""" target=_blank title="""&referer&""">"&hx.OutStr(mid(referer,8),40)&"</a>"	
			q=hx.GetSearchKeyword(referer)	
			if q<>"" then
				q=ReadText(q)
			end if
		end if
		response.write "</td>"
		response.write "<td align=center><a href=# title='"&Lang.item("g_029")&":"&FormatTime(rs("Dateandtime"))&vbCRLF
		response.write Lang.item("g_069")&":"&rs("User_Agent")&vbCRLF
		response.write Lang.item("g_031")&":"&vpage&vbCRLF
		response.write Lang.item("g_032")&":"&referer&vbCRLF
		if q<>"" then
			response.write Lang.item("g_070")&":"&q
		end if
		response.write "'><font face=Wingdings>1</font></a></td>"	
		response.write "</tr>"
		rs.movenext
		i=i+1
		loop
	end if
	%>
</table>
<%
	set rs=nothing
	hxshow.showPageInfo "CC_V","id",condition,PageNo,MaxPageSize,linkstr
End Sub%>
<%
	'将星期序号翻译为汉字
	
	Function findweek(theweek)
		select case theweek
		case 1
			findweek=Lang.item("g_046")
		case 2
			findweek=Lang.item("g_047")
		case 3
			findweek=Lang.item("g_048")
		case 4
			findweek=Lang.item("g_049")
		case 5
			findweek=Lang.item("g_050")
		case 6
			findweek=Lang.item("g_051")
		case 7
			findweek=Lang.item("g_052")
		end select
	End Function

	Function AnsiCode(vstrIn)
		Dim i, strReturn, innerCode, ThisChr
		Dim Hight8, Low8
		strReturn = "" 
		For i = 1 To Len(vstrIn) 
			ThisChr = Mid(vStrIn,i,1) 
			If Abs(Asc(ThisChr)) < &HFF Then 
				strReturn = strReturn & ThisChr 
			Else
				innerCode = Asc(ThisChr)
				If innerCode < 0 Then
					innerCode = innerCode + &H10000
				End If
				Hight8 = (innerCode And &HFF00) \ &HFF
				Low8 = innerCode And &HFF
				strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
			End If 
		Next 
		AnsiCode = strReturn 
	End Function
	
	Function DeCodeAnsi(s)
		Dim i, sTmp, sResult, sTmp1
		sResult = ""
		For i=1 To Len(s)
			If Mid(s,i,1)="%" Then
				sTmp = "&H" & Mid(s,i+1,2)
				If isNumeric(sTmp) Then
					If CInt(sTmp)=0 Then
						i = i + 2
					ElseIf CInt(sTmp)>0 And CInt(sTmp)<128 Then
						sResult = sResult & Chr(sTmp)
						i = i + 2
					Else
						If Mid(s,i+3,1)="%" Then
							sTmp1 = "&H" & Mid(s,i+4,2)
							If isNumeric(sTmp1) Then
								sResult = sResult & Chr(CInt(sTmp)*16*16 + CInt(sTmp1))
								i = i + 5
							End If
						Else
							sResult = sResult & Chr(sTmp)
							i = i + 2
						End If
					End If
				Else
					sResult = sResult & Mid(s,i,1)
				End If
			Else
				sResult = sResult & Mid(s,i,1)
			End If
		Next
		DeCodeAnsi = sResult
	End Function
%>
<script language="JScript" runat="server">
	function ReadText(s){
		try{
			return decodeURIComponent(s);
		}catch(e){
			try{		//某些服务器用此函数会出错
			return DeCodeAnsi(s);
			}catch(e){   
      			return "&nbsp;"; 
			}
		}

	}
</script>
</body>
</html>