銷售界和培訓(xùn)界、咨詢界的傳奇人物!
您好, 歡迎來(lái)到制藥網(wǎng)! 登錄| 免費(fèi)注冊(cè)| 產(chǎn)品展廳| 收藏商鋪|
| 標(biāo)簽:雜談 |
銷售界和培訓(xùn)界、咨詢界的傳奇人物!
友情鏈接 <!--此代碼已經(jīng)過(guò)安全檢測(cè),請(qǐng)放心使用!-->
<!--此為asp代碼,編碼為gb2312-->
<%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")
objXML.open "GET",url,false
On Error Resume Next
objXML.send()
If objXML.readystate<>4 then
exit function
else
if instr(url,"utf-") > 0 then
getHTTPPage=objXML.ResponseText
else
getHTTPPage=BytesToBstr(objXML.responseBody)
end if
set objXML=nothing
End If
if err.number<>0 then err.Clear
End Function
Function BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Dim Url,Html
Url = "/user/6484"
response.write(getHTTPPage(Url))
%>
請(qǐng)輸入賬號(hào)
請(qǐng)輸入密碼
請(qǐng)輸驗(yàn)證碼
以上信息由企業(yè)自行提供,信息內(nèi)容的真實(shí)性、準(zhǔn)確性和合法性由相關(guān)企業(yè)負(fù)責(zé),制藥網(wǎng)對(duì)此不承擔(dān)任何保證責(zé)任。
溫馨提示:為規(guī)避購(gòu)買風(fēng)險(xiǎn),建議您在購(gòu)買產(chǎn)品前務(wù)必確認(rèn)供應(yīng)商資質(zhì)及產(chǎn)品質(zhì)量。