Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÑéÖ¤emailÓÊÏäµØÖ·

<%
'true=ÊÇÓʼþ;false=²»ÊÇ;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......

C#ʵÏÖÏóASPÖеÄÊý¾ÝÌí¼Ó

ÎÒÏëÓÃC#ʵÏÖÏóASPÖеÄ
rs.addnew
rs( "a ")   =   "aaa "
rs( "b ")   =   123
rs.update
ÕâÑù·½·¨Ìí¼ÓÊý¾Ý£¬ÎÊһϣ¬ÒªÔõô×ö°¡£¿
¾ßÌå·½·¨ÈçÏÂ
              string   dbPath   =   "../App_data/We ......

·ÀÖ¹SQL×¢ÈëÍêÕûASP´úÂë

<%
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
'---¶¨Ò岿·Ý   Í·------
Fy_Cl = 1   '´¦Àí·½Ê½£º1=ÌáʾÐÅÏ¢,2=תÏòÒ³Ãæ,3=ÏÈÌáʾÔÙתÏò
Fy_Zx = "Error.Asp" '³ö´íʱתÏòµÄÒ³Ãæ
'---¶¨Ò岿·Ý   β------
On Error Resume Next
Fy_Url=Request.ServerVariables("QUER ......

ASPÓë´æ´¢¹ý³Ì


ASPÓë´æ´¢¹ý³Ì
ASPÓë´æ´¢¹ý³Ì(Stored Procedures)µÄÎÄÕ²»ÉÙ£¬µ«ÊÇÎÒ»³ÒÉ×÷ÕßÃÇÊÇ·ñÕæÕýʵ¼ù¹ý¡£ÎÒÔÚ³õѧʱ²éÔĹý´óÁ¿Ïà¹Ø×ÊÁÏ£¬·¢ÏÖÆäÖÐÌṩµÄºÜ¶à·½·¨Êµ¼Ê²Ù×÷ÆðÀ´²¢²»ÊÇÄÇô»ØÊ¡£¶ÔÓÚ¼òµ¥µÄÓ¦Óã¬ÕâЩ×ÊÁÏÒ²ÐíÊÇÓаïÖúµÄ£¬µ«½öÏÞÓÚ´Ë£¬ÒòΪËüÃǸù±¾¾ÍÊÇǧƪһÂÉ£¬»¥Ïà³­Ï®£¬ÉÔ΢¸´ÔÓµãµÄÓ¦Ó㬾ÍÈ«¶¼ÓïÑɲ»ÏêÁË ......

ÌÔÌØ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ºÅ