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

asp³¤ÎÄÕ·ÖÒ³ÊÕ¼¯´æµµ

<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
´ò¿ªÊý¾Ý±í..²»Ð´Á˹þ.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql,conn,1,3
%>
<%
if rs.recordcount=0 then
%>
ÔÝÎÞ´ËÀàÎïÆ·
<%
else
rs.pagesize=30 'Ò³´óС
if PageNo<1 then
PageNo=1
end if
if PageNo>rs.pagecount then
PageNo=rs.pagecount
end if
rs.absolutepage=PageNo
i=0
do while i<rs.pagesize and not rs.eof
%>
ÄÚÈÝ<%=rs("×Ö¶Î")%>
<%
rs.movenext
i=i+1
loop
end if
%>
<div align="center">
¼Ç¼×ÜÊý:<%=rs.recordcount%>Ìõ µ±Ç°Ò³£º<%=PageNo%>/<%=rs.pagecount%>Ò³´óС£º<%=rs.pagesize%> <a href="?PageNo=1">Ê×Ò³</a> <a href="?PageNo=<%=PageNo-1%>">ÉÏÒ³</a> <a href="?PageNo=<%=PageNo+1%>">ÏÂÒ³</a> <a href="?PageNo=<%=rs.pagecount%>">Ä©Ò³</a> <input type=text id="goPage" value="<%=PageNo%>" size=2> <input type=button class="Mnue_003" onclick="location='?PageNo='+document.all.goPage.value;" value="GO">
<label></div>


Ïà¹ØÎĵµ£º

hzhost·Àasp¹¥»÷º¯Êý

 



hzhost·Àasp¹¥»÷º¯Êý
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......

ASP ÖÐ Split º¯ÊýµÄʵÀý

´ó¼ÒÓÐÅöµ½¹ýÒªÏëÈ¡Ò»×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵĻ°£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅU ......

ASPÖÐÓÃASPJPEGÈçºÎ¸øFCKEditorÉÏ´«µÄͼƬ¼Óˮӡ

´ò¿ªFCKEditor/Editor/Filemanager/Connectors/Asp/Commands.aspÎļþ£¬ÐÞ¸ÄFileUploadº¯Êý£¬ÈçÏÂËùʾ£º
Sub FileUpload( resourceType, currentFolder, sCommand )
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize = 0
oUploader.Allowed = ConfigAllowedExtensions.Item( ......

aspÏÂÈòÄê¼ÆËã·½·¨

¼ÆËãÈòÄêÖ÷ÒªÊÇΪÁËÅжÏ2Ô·ݵÄÌìÊý£¬Ò»°ãÈòÄê2Ô·ÝÊÇ29Ì죬ƽÄê2Ô·ÝÊÇ28Ìì¡£¼ÆËãÈòÄêµÄËã·¨·Ç³£¼òµ¥£¬¼´£ºÄܱ»400Õû³ý£¬»òÕßÄܱ»4Õû³ý¶ø²»Äܱ»100Õû³ý¡£
Ëã·¨ÈçÏ£º
 function isLeapYear(pYear)
    set oreg=new RegExp
    oreg.Pattern="^\d{4}$"
    if n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ