Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÖ±½ÓÉú³ÉhtmlµÄ´úÂë


     ´Ë·½·¨¿ÉÒÔ²»ÐèҪרÃÅÖÆ×÷Ä£°åÎļþ£¬Ö»ÐèÕý³£ÔËÐеĶ¯Ì¬Ò³Ãæ¼´¿É£¬¾ßÌå·½·¨ÈçÏ£¬×îÖÕʹÓüû×îºóÒ»¸öº¯Êý£º
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,"GB2312")
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
Function CreateStatic(txtURL,FileName)
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set openFile=FileObject.OpenTextfile(server.mapPath(Filename),2,true) ‘trueΪ²»´æÔÚ×ÔÐн¨Á¢
openFile.writeline(sText)
Set OpenFile=nothing
End Function

Function CreateIndex()
Response.Write("Ê×Ò³Éú³ÉÖУ¬ÇëÉÔºó...")
Response.Flush()
TxtUrl = "http://"&Request.ServerVariables("SERVER_NAME")&"/Default.asp"
FilePath = "/Default.html"
Call CreateStatic(TxtUrl,FilePath)
Response.Write(" ")
End Function


Ïà¹ØÎĵµ£º

asp vb com×é¼þ¿ª·¢Óëµ÷ÊÔ

½ñÌìÔÚ¹«Ë¾·þÎñÆ÷ÉÏ¿´Ò»¸öÀϵôÑÀµÄasp³ÌÐò£¬·¢ÏÖ¾¹È»µ÷ÓÃÁË×Ô¶¨Òåcom×é¼þ£¬ÊÇvbдµÄ£¬·â×°ÁËÊý¾Ý¿âÁ¬½ÓÓë²Ù×÷£¬ÎĵµÉÏдÕâÑù×öÊÇΪʲôÓû§µ½·þÎñÆ÷Ò²¿´²»µ½Êý¾Ý¿âµÄÓû§ÃûÓëÃÜÂ룬Ҳ¶Ô°¡£¬Õâ¸öÊDzÆÎñµÄ·þÎñÆ÷£¬µ±È»²»ÄÜÈÃÎÒÃÇitËæ±ã¿´ÁË£¬ºÇºÇ£¡£¨itºöÓÆfinance£¬ÈÃfinanceÏàÐÅit¿´²»µ½Êý¾Ý¿âÓû§ÃûÓëÃÜÂ룬my god£©ÓÉÓÚ£¬ ......

aspµ÷ÓÃsql server´æ´¢¹ý³Ì

ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º    
 
----  ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌض¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS  SQL  SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£    
 
----  ¡ ......

ASP:CrazyÍÜ!Ä£°æ²Ù×÷Àà(×î¼òµ¥µÄÄ£°åÀà¡¢½öÌṩ½»Á÷)

ÎļþÃû£ºAwa_temp.Class.asp
 <%
'CrazyÍÜ!Ä£°å²Ù×÷Àà
'×÷ÕßCrazy~ÍÜ! QQ:379969387 »¶Ó­½»Á÷
'°æ±¾V1.0;
Class AwaTemp
Public aa
Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'¹¹Ô캯Êý_³õʼ»¯FSO×é¼þ
'========= ......

asp²Ù×÷Êý¾Ý¿âµÄui

 <!--#include file="conn.asp"-->
<!--#include file="inc/head.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn" lang="zh-cn" xmlns:q ......

ÌÔÌØAsp Cms5.5(Sp2)°æÃâ·ÑÏÂÔØ

 ÏÂÔصØÖ·£º/download/rar/tot-cms-5.5(sp2).rar
꿅᣼http://www.totcms.com/html/200910-30/20091030001212.htm
¸üÐÂ˵Ã÷£º
1¡¢Ôö¼ÓÁË×Ô¶¨Ò庯Êý¹¦ÄÜ£¬Ö»Òª¹ÜÀíÔ±ÊìϤSQL²éѯ£¬¾Í¿ÉÒÔʹÓÃÆÕͨSQLÓï·¨²éѯÊý¾Ý¿âÉú³Éǰ̨¾²Ì¬HTM¼Ç¼¡£
2¡¢ÎÄÕÂÌí¼Ó²ÉÈ¡Á½¼¶Ä¿Â¼±£´æ£¬²»ÊÇʹÓÃÔ­À´µÄÈý²ãĿ¼·½Ê½¡£
3¡¢½â¾öÐ޸ı ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ