<% 
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
  For SQL_Data=0 To Ubound(SQL_inj)
    if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
     Response.Write "对不起！您提交的参数可能存在错误 ;请重新提交..."
	  response.End()
    end if
  next
Next
End If
strtemp=request.servervariables("server_name")&request.servervariables("url")&"?"&request.QueryString
strtemp=lcase(strtemp)
if instr(strtemp,"select%20") or instr(strtemp,"insert%20") or instr(strtemp,"delete%20from") or instr(strtemp,"count(") or instr(strtemp,"drop%20table") or instr(strtemp,"update%20") or instr(strtemp,"truncate%20") or instr(strtemp,"asc(") or instr(strtemp,"char(") or instr(strtemp,"xp_cmdshell") or instr(strtemp,"exec%20master") or instr(strtemp,"net%20user") or instr(strtemp,"%20or%20") or instr(strtemp,"'")  or instr(strtemp,"""") or instr(strtemp,"“") or instr(strtemp,"”") or instr(strtemp,":") or instr(strtemp,": ") or instr(strtemp,";") or instr(strtemp,"; ") or instr(strtemp,"%27")  then
 response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
 response.End()
end if
Function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"'","''")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=replace(fString,"and","")
fString=replace(fString,"or","")
fString=replace(fString,"select","")
fString=replace(fString,"insert","")
fString=replace(fString,"exec","")
fString=replace(fString,"delete","")
fString=replace(fString,"update","")
fString=replace(fString,"count","")
fString=replace(fString,"truncate","")
fString=replace(fString,"%","")
fString=replace(fString,"chr","")
fString=replace(fString,"master","")
fString=replace(fString,"char","")
fString=replace(fString,"declare","")
fString=replace(fString,"*","")
fString=replace(fString,"from","")
fString=server.htmlencode(fString)
Replace_Text=fString
end if	
End function
Function SafeRequest(ParaName) 
Dim ParaValue 
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select |insert |delete from|'|count(|drop table|update |truncate  |asc(|char(|xp_cmdshell|exec master|net localgroup administrators|net user| and|%20from|exec|select|delete|count|*|%|chr|master|truncate|char|declare"
temps=split(tempvalue,"|")
for mycount=0 to ubound(temps)
if  Instr(ParaValuetemp,trim(temps(mycount))) > 0 then
		response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
		response.end
end if
next
SafeRequest=ParaValue
end if
End function
Function SafeRequestform(ParaName) 
Dim ParaValue 
ParaValue=request.form(ParaName)
if IsNumeric(ParaValue)  then
SafeRequestform=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select |insert |delete from|'|count(|drop table|update |truncate  |asc(|char(|xp_cmdshell|exec master|net localgroup administrators|net user|  and|%20from|exec|select|delete|count|*|%|chr|master|truncate|char|declare"
temps=split(tempvalue,"|")
for mycount=0 to ubound(temps)
if  Instr(ParaValuetemp,trim(temps(mycount))) > 0 then
		response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
		response.end
end if
next
SafeRequestform=ParaValue
end if
End function
Sub Check_url()
If Instr(Lcase(request.serverVariables("HTTP_REFERER")),Lcase(request.ServerVariables("SERVER_NAME")))=0 then
 Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
 Response.End()
End if 
End Sub
Sub Check_ID(ID)
 If Len(ID)>0 then
  If Len(ID)>8 Then
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()
  End If
  If IsNumeric(ID)=False Then
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()
  End If  
 Else
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()  
 END If
End Sub
Function HTMLEncode(fString)
If not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
End if
End function
Function HTMLDecode(fString)
If not isnull(fString) then
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString, "&nbsp;", CHR(32))
    fString = Replace(fString, "&nbsp;",CHR(9))
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "",CHR(13) )
    fString = Replace(fString, "</P><P> ", CHR(10) & CHR(10))
    fString = Replace(fString, "<BR>", CHR(10))
    HTMLDecode = fString
End if
End function
function urldecoding(vstrin)
    dim i,strreturn,strSpecial
    strSpecial = "!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"
    strreturn = ""
    for i = 1 to len(vstrin)    
        thischr = mid(vstrin,i,1)
        if thischr="%" then
            intasc=eval("&h"+mid(vstrin,i+1,2))
            if instr(strSpecial,chr(intasc))>0 then
                strreturn= strreturn & chr(intasc)
                i=i+2
            else
                intasc=eval("&h"+mid(vstrin,i+1,2)+mid(vstrin,i+4,2))
                strreturn= strreturn & chr(intasc)
                i=i+5
            end if
        else
            if thischr="+" then
                strreturn= strreturn & " "
            else
                strreturn= strreturn & thischr
            end if
        end if
    next
    urldecoding = strreturn
end function
function urlencoding(vstrin)
    dim i,strreturn,strSpecial
    strSpecial = "!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"
    strreturn = ""
    for i = 1 to len(vstrin)
        thischr = mid(vstrin,i,1)
        if abs(asc(thischr)) < &hff then
            if thischr=" " then
                strreturn = strreturn & "+"
            elseif instr(strSpecial,thischr)>0 then
                strreturn = strreturn & "%" & hex(asc(thischr))
            else
                strreturn = strreturn & thischr
            end if
        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
    urlencoding = strreturn
end function
 %>
<%
'	if session("SiteDataBase")="" then
'		Response.Write("<SCRIPT LANGUAGE=javascript>alert('系统资源耗尽，请释放');top.location.href='/longxun1.5/default.asp';</SCRIPT>")
'	end if
	set comm = server.CreateObject ("ADODB.COMMAND")
	connstr = "driver={SQL Server};server=localhost;uid=work;pwd=1a@s3d$;database=pubs"
	comm.ActiveConnection  = connstr
	comm.CommandType  = &H0004
%>

<% 
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
  For SQL_Data=0 To Ubound(SQL_inj)
    if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
     Response.Write "对不起！您提交的参数可能存在错误 ;请重新提交..."
	  response.End()
    end if
  next
Next
End If
strtemp=request.servervariables("server_name")&request.servervariables("url")&"?"&request.QueryString
strtemp=lcase(strtemp)
if instr(strtemp,"select%20") or instr(strtemp,"insert%20") or instr(strtemp,"delete%20from") or instr(strtemp,"count(") or instr(strtemp,"drop%20table") or instr(strtemp,"update%20") or instr(strtemp,"truncate%20") or instr(strtemp,"asc(") or instr(strtemp,"char(") or instr(strtemp,"xp_cmdshell") or instr(strtemp,"exec%20master") or instr(strtemp,"net%20user") or instr(strtemp,"%20or%20") or instr(strtemp,"'")  or instr(strtemp,"""") or instr(strtemp,"“") or instr(strtemp,"”") or instr(strtemp,":") or instr(strtemp,": ") or instr(strtemp,";") or instr(strtemp,"; ") or instr(strtemp,"%27")  then
 response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
 response.End()
end if
Function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"'","''")
fString=replace(fString,";","；")
fString=replace(fString,"--","—")
fString=replace(fString,"and","")
fString=replace(fString,"or","")
fString=replace(fString,"select","")
fString=replace(fString,"insert","")
fString=replace(fString,"exec","")
fString=replace(fString,"delete","")
fString=replace(fString,"update","")
fString=replace(fString,"count","")
fString=replace(fString,"truncate","")
fString=replace(fString,"%","")
fString=replace(fString,"chr","")
fString=replace(fString,"master","")
fString=replace(fString,"char","")
fString=replace(fString,"declare","")
fString=replace(fString,"*","")
fString=replace(fString,"from","")
fString=server.htmlencode(fString)
Replace_Text=fString
end if	
End function
Function SafeRequest(ParaName) 
Dim ParaValue 
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select |insert |delete from|'|count(|drop table|update |truncate  |asc(|char(|xp_cmdshell|exec master|net localgroup administrators|net user| and|%20from|exec|select|delete|count|*|%|chr|master|truncate|char|declare"
temps=split(tempvalue,"|")
for mycount=0 to ubound(temps)
if  Instr(ParaValuetemp,trim(temps(mycount))) > 0 then
		response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
		response.end
end if
next
SafeRequest=ParaValue
end if
End function
Function SafeRequestform(ParaName) 
Dim ParaValue 
ParaValue=request.form(ParaName)
if IsNumeric(ParaValue)  then
SafeRequestform=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select |insert |delete from|'|count(|drop table|update |truncate  |asc(|char(|xp_cmdshell|exec master|net localgroup administrators|net user|  and|%20from|exec|select|delete|count|*|%|chr|master|truncate|char|declare"
temps=split(tempvalue,"|")
for mycount=0 to ubound(temps)
if  Instr(ParaValuetemp,trim(temps(mycount))) > 0 then
		response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
		response.end
end if
next
SafeRequestform=ParaValue
end if
End function
Sub Check_url()
If Instr(Lcase(request.serverVariables("HTTP_REFERER")),Lcase(request.ServerVariables("SERVER_NAME")))=0 then
 Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
 Response.End()
End if 
End Sub
Sub Check_ID(ID)
 If Len(ID)>0 then
  If Len(ID)>8 Then
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()
  End If
  If IsNumeric(ID)=False Then
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()
  End If  
 Else
   Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..."
   Response.End()  
 END If
End Sub
Function HTMLEncode(fString)
If not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
End if
End function
Function HTMLDecode(fString)
If not isnull(fString) then
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString, "&nbsp;", CHR(32))
    fString = Replace(fString, "&nbsp;",CHR(9))
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "",CHR(13) )
    fString = Replace(fString, "</P><P> ", CHR(10) & CHR(10))
    fString = Replace(fString, "<BR>", CHR(10))
    HTMLDecode = fString
End if
End function
function urldecoding(vstrin)
    dim i,strreturn,strSpecial
    strSpecial = "!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"
    strreturn = ""
    for i = 1 to len(vstrin)    
        thischr = mid(vstrin,i,1)
        if thischr="%" then
            intasc=eval("&h"+mid(vstrin,i+1,2))
            if instr(strSpecial,chr(intasc))>0 then
                strreturn= strreturn & chr(intasc)
                i=i+2
            else
                intasc=eval("&h"+mid(vstrin,i+1,2)+mid(vstrin,i+4,2))
                strreturn= strreturn & chr(intasc)
                i=i+5
            end if
        else
            if thischr="+" then
                strreturn= strreturn & " "
            else
                strreturn= strreturn & thischr
            end if
        end if
    next
    urldecoding = strreturn
end function
function urlencoding(vstrin)
    dim i,strreturn,strSpecial
    strSpecial = "!""#$%&'()*+,/:;<=>?@[\]^`{|}~%"
    strreturn = ""
    for i = 1 to len(vstrin)
        thischr = mid(vstrin,i,1)
        if abs(asc(thischr)) < &hff then
            if thischr=" " then
                strreturn = strreturn & "+"
            elseif instr(strSpecial,thischr)>0 then
                strreturn = strreturn & "%" & hex(asc(thischr))
            else
                strreturn = strreturn & thischr
            end if
        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
    urlencoding = strreturn
end function
 %>
<%
	'if session("SiteDataBase")="" then
	'	Response.Write("<SCRIPT LANGUAGE=javascript>alert('系统资源耗尽，请释放');top.location.href='/longxun1.5/default.asp';</SCRIPT>")
	'end if
	connstr = "driver={SQL Server};server=localhost;uid=work;pwd=1a@s3d$;database=pubs"
	set conn=server.createobject("ADODB.CONNECTION")
	conn.open connstr
%>


<%
	function PageOn(MyRecord,MySetPageNum)
		dim MyRecordSet
		dim TotalRecord,CurrentPageNo
		
		set MyRecordSet = MyRecord
		
		if not MyRecordSet.EOF then
			TotalRecord = MyRecordSet.RecordCount 
			MyRecordSet.PageSize = MySetPageNum
			
			CurrentPageNo = trim(Request.QueryString ("pre_page"))
			
			if CurrentPageNo="" then
				CurrentPageNo = 0
			else
				CurrentPageNo = clng(CurrentPageNo)
			end if 
			if CurrentPageNo<>0 then
				MyRecordSet.AbsolutePage = CurrentPageNo
			elseif CurrentPageNo=0 then
				CurrentPageNo = 1
				MyRecordSet.AbsolutePage = CurrentPageNo
			else
				Response.Write ("error:1000")
			end if
		end if
		
		set PageOn = MyRecordSet		
	end function
	
	function ViewPageOn(MyRecord,MySetPageNum,MyViewPageNum,MyPageUrl)
		dim MyRecordSet
		dim CurrentPageNo,TotalPageNo,BegPage,EndPage,FileUrl,TempPage,FastPage,TempNum
		dim CheckFlag
		
		CheckFlag = instr(1,MyPageUrl,"?",1)
		if CheckFlag=0 then
			MyPageUrl = MyPageUrl & "?"
		elseif CheckFlag>0 then
			MyPageUrl = MyPageUrl & "&"
		end if
		
		if MyViewPageNum="" then
			Response.Write ("error:1001")
		else
			MyViewPageNum = clng(MyViewPageNum)
		end if
		
		set MyRecordSet = MyRecord
		MyRecordSet.PageSize = MySetPageNum
		
		CurrentPageNo = trim(Request.QueryString ("pre_page"))
		if CurrentPageNo="" then
			CurrentPageNo = 1
		else
			CurrentPageNo = clng(CurrentPageNo)
		end if
		 
		TotalPageNo = clng(MyrecordSet.PageCount)
		
'****************************************
'分页begin
'****************************************
		if CurrentPageNo=1 and TotalPageNo=1 then
		elseif CurrentPageNo=1 and TotalPageNo>1 then
			if TotalPageNo<=MyViewPageNum then
				EndPage = TotalPageNo
			else
				EndPage = MyViewPageNum
			end if
			for i=1 to EndPage
				if i=CurrentPageNo then
					Response.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					Response.Write (FileUrl)
				end if
			next
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo+1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "下一页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & TotalPageNo & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "尾页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			Response.Write (FastPage)
			
		elseif CurrentPageNo=TotalPageNo then
			FileUrl = MyPageUrl & "pre_page=" & "1" & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "首页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo-1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "上一页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			Response.Write (FastPage)
			if TotalPageNo<=MyViewPageNum then
				BegPage = 1
			else
				BegPage = TotalPageNo - MyViewPageNum + 1
			end if
			EndPage = TotalPageNo
			for i=BegPage to EndPage
				if i=CurrentPageNo then
					Response.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					Response.Write (FileUrl)
				end if
			next
			
			
		elseif CurrentPageNo>1 and TotalPageNo>1 then
			FileUrl = MyPageUrl & "pre_page=" & "1" & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "首页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo-1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "上一页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			Response.Write (FastPage)
			if TotalPageNo<=MyViewPageNum then
				BegPage = 1
				EndPage = TotalPageNo
			else
				TempNum = cint(MyViewPageNum\2)
				
				if CurrentPageNo<=TempNum then
					BegPage = 1
					EndPage = MyViewPageNum
				else
					TempPage = CurrentPageNo + TempNum
					if TempPage>=TotalPageNo then
						EndPage = TotalPageNo
					else
						EndPage = TempPage
					end if
					BegPage = CurrentPageNo - TempNum
				end if
			end if
			for i=BegPage to EndPage
				if i=CurrentPageNo then
					Response.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					Response.Write (FileUrl)
				end if
			next
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo+1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "下一页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & TotalPageNo & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "尾页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			Response.Write (FastPage)
		end if 
'****************************************
'分页begin
'****************************************
	end function


	function ViewPageOnCreate(MyRecord,MySetPageNum,MyViewPageNum,MyPageUrl)
		dim MyRecordSet
		dim CurrentPageNo,TotalPageNo,BegPage,EndPage,FileUrl,TempPage,FastPage,TempNum
		dim CheckFlag
		
		CheckFlag = instr(1,MyPageUrl,"?",1)
		if CheckFlag=0 then
			MyPageUrl = MyPageUrl & "?"
		elseif CheckFlag>0 then
			MyPageUrl = MyPageUrl & "&"
		end if
		
		if MyViewPageNum="" then
			Response.Write ("error:1001")
		else
			MyViewPageNum = clng(MyViewPageNum)
		end if
		
		set MyRecordSet = MyRecord
		MyRecordSet.PageSize = MySetPageNum
		
		CurrentPageNo = trim(Request.QueryString ("pre_page"))
		if CurrentPageNo="" then
			CurrentPageNo = 1
		else
			CurrentPageNo = clng(CurrentPageNo)
		end if
		 
		TotalPageNo = clng(MyrecordSet.PageCount)
		
'****************************************
'分页begin
'****************************************
		if CurrentPageNo=1 and TotalPageNo=1 then
		elseif CurrentPageNo=1 and TotalPageNo>1 then
			if TotalPageNo<=MyViewPageNum then
				EndPage = TotalPageNo
			else
				EndPage = MyViewPageNum
			end if
			for i=1 to EndPage
				if i=CurrentPageNo then
					file.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					file.Write (FileUrl)
				end if
			next
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo+1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "下一页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & TotalPageNo & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "尾页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			file.Write (FastPage)
			
		elseif CurrentPageNo=TotalPageNo then
			FileUrl = MyPageUrl & "pre_page=" & "1" & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "首页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo-1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "上一页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			file.Write (FastPage)
			if TotalPageNo<=MyViewPageNum then
				BegPage = 1
			else
				BegPage = TotalPageNo - MyViewPageNum + 1
			end if
			EndPage = TotalPageNo
			for i=BegPage to EndPage
				if i=CurrentPageNo then
					file.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					file.Write (FileUrl)
				end if
			next
			
			
		elseif CurrentPageNo>1 and TotalPageNo>1 then
			FileUrl = MyPageUrl & "pre_page=" & "1" & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "首页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo-1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "上一页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			file.Write (FastPage)
			if TotalPageNo<=MyViewPageNum then
				BegPage = 1
				EndPage = TotalPageNo
			else
				TempNum = cint(MyViewPageNum\2)
				
				if CurrentPageNo<=TempNum then
					BegPage = 1
					EndPage = MyViewPageNum
				else
					TempPage = CurrentPageNo + TempNum
					if TempPage>=TotalPageNo then
						EndPage = TotalPageNo
					else
						EndPage = TempPage
					end if
					BegPage = CurrentPageNo - TempNum
				end if
			end if
			for i=BegPage to EndPage
				if i=CurrentPageNo then
					file.Write ("<font color=red size=1>"&i&"</font>&nbsp;")
				else
					FileUrl = MyPageUrl & "pre_page=" & i & " class=pageon>"
					FileUrl = "<a href=" & FileUrl & i & "</a>&nbsp;"
					file.Write (FileUrl)
				end if
			next
			FileUrl = MyPageUrl & "pre_page=" & (CurrentPageNo+1) & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "下一页</a>&nbsp;"
			FastPage = FileUrl
			FileUrl = MyPageUrl & "pre_page=" & TotalPageNo & " class=pageon>"
			FileUrl = "<a href=" & FileUrl & "尾页</a>&nbsp;"
			FastPage = FastPage & FileUrl
			file.Write (FastPage)
		end if 
'****************************************
'分页begin
'****************************************
	end function


%>


<%
	function ViewBlock(MyCommand,MySubjectId,MyStyle,MyNum,MyClassName,MyPrefix,picw,pich)
		dim OutString,i,TempString
		OutString = ""
		i = 0
		
		set para1 = MyCommand.CreateParameter ("SubjectId",3,&H0001)
		set para2 = MyCommand.CreateParameter ("Num",2,&H0001)
		
		MyCommand.Parameters.Append (para1)
		MyCommand.Parameters.Append (para2)
		MyCommand.Parameters ("SubjectId") = MySubjectId

		
		if MyNum<90 then
			MyCommand.Parameters ("Num") = 1
		else
			MyCommand.Parameters ("Num") = MyNum
		end if
		MyCommand.CommandText = "Ext_ViewBlo"
		set rs = MyCommand.Execute ()
		while not rs.eof and i<MyNum
			Id = rs(0)
			Title = rs(1)
			Abstract = rs(2)
			Keyword = rs(3)
			Title2 = rs(4)
			if Title2<>"" then
				viewTitle2 = "(" & Title2 & ")"
			end if
			SendDate = rs(5)
			OutSendDate = replace(SendDate,"2002年","")
			DocFrom = rs(6)
			PicNum = rs(7)
			if PicNum>0 then
				PicNum = "（图）"
			else
				PicNum = " "
			end if
			DocSort = rs(8)
			SignDate = rs(9)
			FilePath = rs(10)

			select case MyStyle
						 
		  	case 10
		  		if len(Title)>19 then
		  			Title = mid(Title,1,19) & "…" 
		  		end if
		  		TempString = "<tr height='25'><td><span class='" & MyClassName & "'>" & MyPrefix & "</span><a href='content.asp?SubjectId=" &_
		  			 MySubjectId & "&Id=" & Id & "' class='" & MyClassName & "' target=_blank>" & Title & "</a><span class='" & MyClassName & "'>" & PicNum &  "</span></td></tr>"

		  	case 3
				
			  if len(keyword)>2 then
		  			keyword = mid(keyword,1,2)& "" 
		    	end if
			if docfrom <>"" then
			  			
		TempString = "<tr bgcolor='ffffff'><td height='25' bgcolor='ffffff'><div align='center'><a href='../academy_content.asp?SubjectId=" &_
						 MySubjectId & "&Id=" & Id & "' class='" & MyClassName & "'  style='color: #005961; text-decoration:underline' target=_blank>" & title & "</a></div></td><td height='25' bgcolor='ffffff'><div align='center'>" & DocFrom & "</div></td><td height='25'> <div align='center'>" & Keyword & "</div></td><td height='25'><div align='center'>"& SignDate &"</div></td></tr>"

				end if				
					
			case 6
					if FilePath<>"" and Keyword<>"" then
						if (i mod 2)=0 then
							TempString = "<tr valign='top'><td width='50%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0' ><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table>" & Title & "</a></td>"
						else
							TempString = "<td width='50%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0'><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table>" & Title & "</a></td></tr>"
						end if
					else
						TempString = ""
					end if			
				case 1201
					if FilePath<>"" and Keyword<>"" then
						if (i mod 8)=0 then
							TempString = "<tr valign='top'><td width='12%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0' ><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td>"
                        elseif ((i mod 8)=7) then
							TempString = "<td width='12%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0'><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td></tr>"						
						else
							TempString = "<td width='12%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0'><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td>"
						end if
					else
						TempString = ""
					end if					
				case 1202
					if FilePath<>"" and Keyword<>"" then
						if (i mod 6)=0 then
							TempString = "<tr valign='top'><td width='17%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0' ><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td>"
                        elseif ((i mod 6)=5) then
							TempString = "<td width='17%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0'><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td></tr>"						
						else
							TempString = "<td width='17%' align=center><table border='0'  cellspacing='1' bgcolor='#000000' cellpadding='0'><tr><td align='center' bgcolor='#E9E2EA'><a href='../record.asp?SubjectId=" &_
                    MySubjectId & "&Id=" & Id & "' target=_blank><img src='" & FilePath & "' width=" & picw & " height=" & pich & " border='0'>" & MyPrefix & "</td></tr></table><br>" & Title & "</a></td>"
						end if
					else
						TempString = ""
					end if							  		

			end select
			OutString = OutString & TempString
			
			if TempString<>"" then
				i = i + 1
			end if
			rs.MoveNext() 
		wend
		rs.close
		
		if OutString<>"" then
			select case MyStyle
				case 1,11,111,129,139,110,166
					OutString = OutString & "<tr><td align='right'><img src='images/show-008-arrow.gif' width='6' height='9' hspace='4'><a href='/SiteFun/more.asp?SubjectId=" & MySubjectId & "' class='" & MyClassName & "' target=_blank>更多&gt;&gt;</a></td></tr>"
				case 22,52,57
					OutString = OutString & "<tr><td height='20' align='right'><img src='images/show-008-arrow.gif' width='6' height='9' hspace='4'><a href='/SiteFun/more.asp?SubjectId=" & MySubjectId & "' class='" & MyClassName & "'>更多</a></td></tr>"
				case 201
					if (i mod 2)=0 then
					else
						OutString = OutString & "<td></td><td></td></tr>"
					end if
				case 205,206
					if (i mod 2)=0 then
					else
						OutString = OutString & "<td></td><td></td></tr>"
					end if
			end select
		end if
		
		MyCommand.Parameters.Delete "SubjectId"
		MyCommand.Parameters.Delete "Num"
		
		ViewBlock = OutString
	end function

	

function ViewBlockZhxxASC(MyCommand,MySubjectId,MyStyle,MyNum,MyClassName,MyPrefix,picw,pich)
	dim OutString,i,TempString
	OutString = ""
	i = 0
		
	set para1 = MyCommand.CreateParameter ("SubjectId",3,&H0001)
	set para2 = MyCommand.CreateParameter ("Num",2,&H0001)
		
	MyCommand.Parameters.Append (para1)
	MyCommand.Parameters.Append (para2)
	MyCommand.Parameters ("SubjectId") = MySubjectId
	MyCommand.Parameters ("Num") = 99

	MyCommand.CommandText = "Ext_ViewBlo"
	set rs = MyCommand.Execute ()
	while not rs.eof and i<MyNum
		Id = rs(0)
		Title = rs(1)
		Abstract = rs(2)
		Keyword = rs(3)
		Title2 = rs(4)
		if Title2<>"" then
			viewTitle2 = "(" & Title2 & ")"
		end if
		SendDate = rs(5)
		OutSendDate = replace(SendDate,"2002年","")
		DocFrom = rs(6)
		PicNum = rs(7)
		if PicNum>0 then
			PicNum = "（图）"
		else
			PicNum = " "
		end if
		DocSort = rs(8)
		SignDate = rs(9)
		FilePath = rs(10)
			
		select case MyStyle
			case 601
			if len(Title)>23 then
					Title = mid(Title,1,23) & "…" 
				end if
				TempString = "<tr><td><span class='" & MyClassName & "'>" & MyPrefix & "</span><a href='SiteFun/zhxx1_content_te.asp?SubjectId=" &_
					 MySubjectId & "&Id=" & Id & "' class='" & MyClassName & "' target=_blank>" & Title & "</a></td></tr>"
						 
  		case 602
				TempString = "<tr><td><span class='" & MyClassName & "'>" & MyPrefix & "</span><a href='SiteFun/zhxx1_content.asp?SubjectId=" &_
					 MySubjectId & "&Id=" & Id & "' class='" & MyClassName & "' target=_blank>" & Title & "</a>&nbsp;(" & Title2 & ")</td></tr>"
  		case 603
				TempString = "<tr><td><span class='" & MyClassName & "'>" & MyPrefix & "</span><a href='/SiteFun/zhxx1_content_te.asp?SubjectId=" &_
					 MySubjectId & "&Id=" & Id & "' class='" & MyClassName & "' target=_blank>" & Title & "</a>&nbsp;(" & Title2 & ")</td></tr>"

		end select
		OutString = OutString & TempString
			
		if TempString<>"" then
			i = i + 1
		end if
		rs.MoveNext() 
	wend
	rs.close
		
	if OutString<>"" then
		select case MyStyle
			case 1
				OutString = OutString & "<tr><td align='right'><img src='images/show-008-arrow.gif' width='6' height='9' hspace='4'><a href='/SiteFun/more_zhxx.asp?SubjectId=" & MySubjectId & "' class='" & MyClassName & "' target=_blank>更多&gt;&gt;</a></td></tr>"
		end select
	end if
		
	MyCommand.Parameters.Delete "SubjectId"
	MyCommand.Parameters.Delete "Num"
		
	ViewBlockZhxxASC = OutString
end function
	
function GetDateFormat(DataValue,Style)
	dim yy,mm,dd,hh,min
	yy = year(DataValue)
	mm = right("0" & month(DataValue),2)
	dd = right("0" & day(DataValue),2)
	hh = right("0" & hour(DataValue),2)
	min = right("0" & minute(DataValue),2)
		
	select case Style
		case 1
			GetDateFormat = mm & "-" & dd & " " & hh & ":" & min
		case 2
			GetDateFormat = mm & "月" & dd & "日"
		case 3
			GetDateFormat = dd & "日" & " " & hh & ":" & min
		case 4
			GetDateFormat = yy & "年" & mm & "月" & dd & "日"
		case 5
			GetDateFormat = yy & "." & mm & "." & dd 			
	end select
end function

%>


<html>
<head>
<link href="images/wuhanzpcss.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>武汉大学网络招聘会</title>
<style type="text/css">
<!--
.jianju1 {
	line-height: 22px;
}
-->
</style>
<style type="text/css">
<!--
.wudhuibian {
	border-top-width: 1px;
	border-right-width: 1px;
	border-bottom-width: 1px;
	border-left-width: 1px;
	border-top-style: none;
	border-right-style: solid;
	border-bottom-style: solid;
	border-left-style: solid;
	border-top-color: #CCCCCC;
	border-right-color: #CCCCCC;
	border-bottom-color: #CCCCCC;
	border-left-color: #CCCCCC;
}
.kuanlanbian {
	border: 4px solid #CCEFF7;
}
-->
</style>
</head>

<body bgcolor="#FA5A10" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="114" height="550" valign="top"><img src="images/wuhanzph_01.gif" width="114" height="321" alt=""></td>
    <td width="772" valign="top"><table width="772" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td colspan="3" height="8"><img src="images/wuhanzph_02.gif" width="772" height="8" alt=""></td>
        </tr>
        <tr> 
          <td width="176"><a href="http://www.51haojob.com" target="_blank"><img src="images/wuhanzph_04.gif" alt="" width="176" height="64" border="0"></a></td>
          <td width="304"><a href="http://www.wuse.edu.cn/" target="_blank"><img src="images/wuhanzph_05.gif" alt="" width="304" height="64" border="0"></a></td>
          <td width="292"><img src="images/wuhanzph_06.gif" width="292" height="64" alt=""></td>
        </tr>
        <tr> 
          <td><img src="images/wuhanzph_07.gif" width="176" height="61" alt=""></td>
          <td><img src="images/wuhanzph_08.gif" width="304" height="61" alt=""></td>
          <td><img src="images/wuhanzph_09.gif" width="292" height="61" alt=""></td>
        </tr>
        <tr> 
          <td><img src="images/wuhanzph_10.gif" width="176" height="87" alt=""></td>
          <td><img src="images/wuhanzph_11.gif" width="304" height="87" alt=""></td>
          <td><img src="images/wuhanzph_12.gif" width="292" height="87" alt=""></td>
        </tr>
		 <tr>
          <td height="12" colspan="3" valign="top"><img src="images/wuhanzph_13.gif" width="772" height="12" alt=""></td>
        </tr>
        <tr> 
          <td height="82" colspan="3" valign="top"><table width="770" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="26%"><img src="images/wh22_03.gif" alt="" width="198" height="147" border="0" usemap="#Map2"></td>
                <td rowspan="5" valign="top"><table width="561" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td colspan="3"><img src="images/wh11_03.gif" width="566" height="64" alt=""></td>
                    </tr>
                    <tr> 
                      <td width="78"><img src="images/wh11_05.gif" width="78" height="277" alt=""></td>
                      <td width="369"><img src="images/wh11_06.gif" width="369" height="277" alt=""></td>
                      <td width="114"><img src="images/wh11_07.gif" width="114" height="277" alt=""></td>
                    </tr>
                    <tr> 
                      <td height="34">&nbsp;</td>
                      <td>&nbsp;</td>
                      <td>&nbsp;</td>
                    </tr>
                    <tr> 
                      <td colspan="3" valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="165" class="Font14px"> 继北京服装学院、浙江纺织服装学院、天津工业大学校园招聘会后，服装人才网(www.51haojob.com)再次与武汉科技学院联手推出《委托服装人才网企业专场招聘会》。<br>
                              2007年的阳春三月，共有二十七家大中型服装纺织企业通过与服装人才网的合作，在武汉科技学院进行了为期一天的现场招聘。此次活动受到该校领导的积极配合与支持，更加受到毕业生的热烈欢迎。招聘现场异常火爆、热闹非凡。简历投发量达到760余份。许多企业也被纷纷吸引踏足展馆内，对此次活动表示出浓厚的兴趣与关注。</td>
                          </tr>
                          <tr>
                            <td height="30" class="Font14px">&nbsp;</td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td><img src="images/wh9_06.gif" width="206" height="57" alt=""></td>
              </tr>
              <tr> 
                <td><img src="images/wh9_07.gif" alt="" width="206" height="83" border="0" usemap="#Map"></td>
              </tr>
              <tr> 
                <td height="284">&nbsp;</td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td height="3" colspan="3" valign="top"></td>
        </tr>
      </table></td>
    <td width="114" valign="top"><img src="images/wuhanzph_03.gif" width="114" height="321" alt=""></td>
  </tr>
</table>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="114">&nbsp;</td>
    <td width="552"><table width="772" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td bgcolor="#FE8F02" height="5"></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td> <div align="center" class="jianju1">服装人才网 北京东方易尚科技有限公司 版权所有 京ICP证030536号<br>
              Copyright 2002-2006 51haojob.com Inc. All rights reserved.</div></td>
        </tr>
        <tr> 
          <td height="16">&nbsp;</td>
        </tr>
      </table></td>
    <td >&nbsp;</td>
  </tr>
</table>
<map name="Map">
  <area shape="rect" coords="41,24,164,41" href="http://www.51haojob.com/edu/zy/index.htm" target="_blank">
  <area shape="rect" coords="40,44,176,61" href="http://www.51haojob.com/edu/lg" target="_blank">
  <area shape="rect" coords="41,6,177,23" href="http://www.51haojob.com/edu/tj/index.asp" target="_blank">
</map>
<map name="Map2">
  <area shape="rect" coords="51,43,113,65" href="index.asp">
  <area shape="rect" coords="51,73,117,93" href="dahui.htm">
  <area shape="rect" coords="52,100,148,122" href="qiyemore.htm">
</map>
</body>
</html>