admin_html.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
'If session("admin_name")="" Then 
'	    adminflag()	
'Else 
        response.charset="utf-8"
        session.codepage="65001"
        Server.ScriptTimeout =99999 
        function getHTTPPage(url)
                dim Http
                set Http=server.createobject("MSXML2.XMLHTTP")
                Http.open "GET",url,false
                Http.send()
                if Http.readystate<>4 then 
                        exit function
                end if
                getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
                set http=nothing
                if err.number<>0 then err.Clear 
        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

        Public Function NowURL()  '鑾峰彇褰撳墠鏂囦欢鍚