ÔÚ·ÃÎÊASPÍøÕ¾Ò³ÃæÊ±µ÷ÓÃÁíÒ»¸öÍøÕ¾Ò³ÃæÄÚÈÝ
Èç¹ûÔÚÒ»¸öÍøÕ¾µÄÒ³ÃæÖÐÏëµ÷ÓÃÆäËûÍøÕ¾Ò³ÃæÄÚÈÝ£¬Ö±½ÓÓÃһϴúÂë¾Íok£¬http://www.wanyusoft.com/index.asp Õâ¸ö·¾¶¾ÍÊÇËùÒªµ÷ÓõÄÒ³ÃæÂ·¾¶¡£
<%
response.write(getHTTPPage("http://www.wanyusoft.com/index.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim wanyusoft_strReturn
dim i,ThisCharCode,NextCharCode
wanyusoft_strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
wanyusoft_strReturn = wanyusoft_strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
wanyusoft_strReturn = wanyusoft_strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = wanyusoft_strReturn
End Function
%>
Ïà¹ØÎĵµ£º
¡¡¡¡×î½üÓкܶàµÄÅóÓÑÎʵ½µ÷Óô洢¹ý³ÌµÄÎÊÌ⣬ÕâÀï¼òµ¥½éÉܼ¸ÖÖASPµ÷Óôø²ÎÊý´æ´¢¹ý³ÌµÄ·½·¨¡£
¡¡¡¡1. ÕâÒ²ÊÇ×î¼òµ¥µÄ·½·¨,Á½¸öÊäÈë²ÎÊý£¬ÎÞ·µ»ØÖµ£º
¡¡¡¡set connection = server.createobject("adodb.connection")
¡¡¡¡connection.open someDSN
¡¡¡¡Connection.Execute "procname varvalue1, varvalue2"
¡¡¡¡'½«Ëù ......
¡¡¡¡7. ·µ»Ø¶à¸ö¼Ç¼¼¯µÄ´æ´¢¹ý³Ì
¡¡¡¡±¾ÎÄ×îÏȽéÉܵÄÊÇ·µ»Ø¼Ç¼¼¯µÄ´æ´¢¹ý³Ì¡£ÓÐʱºò£¬ÐèÒªÒ»¸ö´æ´¢¹ý³Ì·µ»Ø¶à¸ö¼Ç¼¼¯£¬ÔÚASPÖУ¬ÈçºÎͬʱȡµÃÕâЩ¼Ç¼¼¯ÄØ£¿ÎªÁË˵Ã÷ÕâÒ»ÎÊÌ⣬ÔÚuserinfo±íÖÐÔö¼ÓÁ½¸ö×ֶΣºusertel¼°usermail£¬²¢É趨ֻÓеǼÓû§¿ÉÒԲ鿴ÕâÁ½ÏîÄÚÈÝ¡£
/*SP7*/
CREATE PROCEDURE dbo.getUserInfo
......
Top-CMSÖ÷ÒªÌØµã£º
1.ϵͳ²ÉÓÃASP+COM¼¼Êõ¿ª·¢£¬Ò»·½Ãæ×î´ó³Ì¶È±£ÕÏϵͳ°²È«ÐÔ£¬ÁíÒ»·½Ã漫´óµÄÌá¸ßϵͳÔËÐÐЧÂÊ¡£
2.ϵͳÍêÈ«»ùÓÚB/Sģʽ¹¹½¨£¬Ö»ÒªÔÚ·þÎñÆ÷Éϰ²×°Á˱¾ÏµÍ³£¬¿Í»§»ú²»ÐèÒª°²×°ÆäËûÈí¼þ£¬Ö±½ÓʹÓÃIE±ã¿Éä¯ÀÀ¡£
3.ϵͳ±¾Éí¼¯³ÉÖîÈ繫¸æ¡¢×¨Ìâ¡¢ÔÚÏßµ÷²é¡¢Óû ......
ÌâÍâ»°£ºÈ¥ÄêÖÁ½ñÄêÒÔÀ´£¬Â½ÐøÐ´¹ýһЩԴ´µÄÎÄÕÂÁË£¬ºÜ¶àÊǶÔÔÀ´Ëù×öÏîÄ¿µÄ×ܽᡣËùÒÔ²¢²»ÊǺÜϵͳºÜÈ«Ãæ£¬¶¼ÊÇÕë¶Ôij¸ö֪ʶµã»òÕßij¸ö¾ßÌåÓ¦ÓÃдµÄ£¬ÓÐЩÅóÓѽ¨ÒéÎÒ°Ñ×Ô¼ºµÄÌå»áд³ÉÒ»¸öϵͳµÄ£¬Õâ´ÎËãÊÇÒ»¸ö³¢ÊÔ°É£¬Ð´µÃ²»ºÃµÄµØ·½Çë´ó¼Ò¾¡Á¿Å×Î÷ºìÊÁ²»Òª¶ª×©Í·¡£
Ö®ËùÒÔ°ÑÕâ¸öϵÁнÐ×ö¡¶asp.netÒ¹»°¡·£¬ÊÇÓÐһЩÔÒ ......