check_update_gb.asp

图书管理系统是用VC++做的有兴趣的可以来共同研究研究

<%@language=vbscript codepage=936 %>
<% '========================================================================================
' 文 件 名: check_update_GB.asp
' 版    本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说    明: 在线升级以及版本校检程序 | 
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网    站: http://lingfengnet.com,
' 电子邮件: [e-mail]
' 联系ＱＱ: 85112407
'======================================================================================== 
%>
<!-- #include file="setup.asp" -->
<!-- #include file="sub_inc.asp" -->
<!-- #include file="ip_purview.asp" -->
<%flg="man_inc"%>
<!-- #include file="purview.asp" -->
<!-- #include file="../language/Lang_Base.asp" -->
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
        zylf_fun_t = GetBody(Path)
        getHTTPPage=BytesToBstr(zylf_fun_t,"GB2312")
End function

Function GetBody(url) 
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
        With Retrieval 
        .Open "Get", url, False, "", "" 
        .Send 
        GetBody = .ResponseBody
        End With 
        Set Retrieval = Nothing 
End Function

Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText 
        objstream.Close
        set objstream = nothing
End Function
Function Newstring(wstr,strng)
        Newstring=Instr(lcase(wstr),lcase(strng))
        if Newstring<=0 then Newstring=Len(wstr)
End Function

        url=lingfengnet_ms_language_check_update_07
        wstr=getHTTPPage(url)
		
        start=Newstring(wstr,"<up_1>")
        over=Newstring(wstr,"</up_1>")
        body=mid(wstr,start,over-start)
		body=replace(body,"<up_1>","")
		body=replace(body,"</up_1>","")
		start_2=Newstring(wstr,"<up_2>")
        over_2=Newstring(wstr,"</up_2>")
        body2=mid(wstr,start_2,over_2-start_2)
		body2=replace(body2,"<up_2>","")
		body2=replace(body2,"</up_2>","")
		start_3=Newstring(wstr,"<up_3>")
        over_3=Newstring(wstr,"</up_3>")
        body3=mid(wstr,start_3,over_3-start_3)
		body3=replace(body3,"<up_3>","")
		body3=replace(body3,"</up_3>","")
		lingfengnet_ms_language_cop =replace( lingfengnet_ms_language_cop," ","")
		lingfengnet_ms_language_cop =replace( lingfengnet_ms_language_cop,"&nbsp;","")
		check=mid(lingfengnet_ms_language_cop,117,4)
		check_cus=cint(replace(check,".",""))
		check_ser=replace(body,".","")
		check_ser=cint(check_ser)		
		if err<>0 then
		Response.Write "<SCRIPT LANGUAGE=javascript>ask=confirm('"& lingfengnet_ms_language_check_update_01 &""& err &""& lingfengnet_ms_language_check_update_05 &"'); if (ask==true){window.location='"&body3&"';}else{window.close();} </SCRIPT>"
		Response.end
	    end if		
		if check_ser>check_cus then 
	    Response.Write "<SCRIPT LANGUAGE=javascript>ask=confirm('"& lingfengnet_ms_language_check_update_02 &""& body &""& lingfengnet_ms_language_check_update_03 &""&check&""& lingfengnet_ms_language_check_update_04 &""& body2 &""& lingfengnet_ms_language_check_update_05 &"'); if (ask==true){window.location='"&body3&"';}else{window.close();} </SCRIPT>"		
		Response.end
	    end if		
        if check_ser=check_cus then 
	    Response.Write "<script Language=Javascript>alert('"& lingfengnet_ms_language_check_update_06 &"');window.close();</script>"
		Response.end
	    end if
        if check_ser<check_cus then 
	    Response.Write "<SCRIPT LANGUAGE=javascript>ask=confirm('"& lingfengnet_ms_language_check_update_01 &""& err &""& lingfengnet_ms_language_check_update_05 &"'); if (ask==true){window.location='"&body3&"';}else{window.close();} </SCRIPT>"
		Response.end
	    end if
%>