随笔分类 -  ASP

摘要:全新整理V9标签清单====================网站通用标签============== {$GetSiteTitle} 显示网站标题{$GetSiteName} 显示网站名称{$GetSiteLogo} 显示网站logo(不带参数){=GetLogo(130,90)} 显示网站logo(带参数,logo的宽和高){=GetTags(1,10)}热门Tags{=GetTags(2,10)}访问时间排序{=GetTags(3,10)}添加时间排序{$GetSiteCountAll}显示网站信息统计(栏目总数,文章总数….){$GetSiteOnline}显示在线人数(总在线:X人用户 阅读全文
posted @ 2013-07-18 15:41 Liu66~ 阅读(10962) 评论(0) 推荐(0)
摘要:function Newstop2(SortPath) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top 4 * from Qianbo_News where Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write &q 阅读全文
posted @ 2012-11-05 10:22 Liu66~ 阅读(239) 评论(0) 推荐(0)
摘要:<%set rs = server.createobject("adodb.recordset")sql="SELECT top 16 * FROM Qianbo_News order by id desc"rs.open sql,conn,1,1if rs.bof and rs.eof thenresponse.write "暂无新闻"elsei=1do while not rs.eof and i>0%><td height=20 align=left><%if i mod 2=0 then r 阅读全文
posted @ 2012-11-05 10:20 Liu66~ 阅读(200) 评论(0) 推荐(0)
摘要:function StrLen(Str) if Str="" or isnull(Str) then StrLen=0 exit function else dim regex set regex=new regexp regEx.Pattern ="[^\x00-\xff]" regex.Global =true Str=regEx.replace(Str,"^^") set regex=nothing StrLen=len(Str) end ifend function注:[^\x00-\xff]:匹配双字节字符(包括汉字在内) 阅读全文
posted @ 2012-11-05 10:05 Liu66~ 阅读(210) 评论(0) 推荐(0)
摘要:function StrLeft(Str,StrLen) dim L,T,I,C if Str="" then StrLeft="" exit function end if Str=Replace(Replace(Replace(Replace(Str,"&nbsp;"," "),"&quot;",Chr(34)),"&gt;",">"),"&lt;","<") L=Le 阅读全文
posted @ 2012-11-05 10:04 Liu66~ 阅读(207) 评论(0) 推荐(0)
摘要:function HtmlStrReplace(Str) if Str="" or isnull(Str) then HtmlStrReplace="" exit function else HtmlStrReplace=replace(Str,"&lt;br&gt;","<br />") end ifend functionfunction StrReplace(Str) if Str="" or isnull(Str) then StrReplace=" 阅读全文
posted @ 2012-11-05 10:02 Liu66~ 阅读(303) 评论(0) 推荐(0)
摘要:Function FormatDate(DateAndTime, Format) On Error Resume Next Dim yy,y, m, d, h, mi, s, strDateTime FormatDate = DateAndTime If Not IsNumeric(Format) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function yy = CStr(Year(DateAndTime)) y = Mid(CStr(Year(DateAndTime)),3) m = CStr(Mont... 阅读全文
posted @ 2012-11-05 10:00 Liu66~ 阅读(293) 评论(0) 推荐(0)
摘要:Public Function FormatDT(dt, style)'style=0 2000-10-10 下午 12:17:45'style=1 2000-10-10 23:17:45'style=2 2000-10-10 23:45'style=3 00-10-10 23:45'style=4 10-10 23:45'style=5 2000-10-10'style=6 00-10-10'style=7 10-10'style=8 23H-45M-45S'style=9 20001010231745' 阅读全文
posted @ 2012-11-05 09:59 Liu66~ 阅读(242) 评论(0) 推荐(0)
摘要:<TABLE cellSpacing=0 cellPadding=0 width="96%" border=0> <TBODY> <TR> <TD align=left> <UL> <% set rs=server.CreateObject("adodb.recordset") sql = "select * from Ejz_User order by P_AddDate DESC" rs.Open sql,conn,1,1 If r... 阅读全文
posted @ 2012-11-05 09:55 Liu66~ 阅读(179) 评论(0) 推荐(0)
摘要:<table width="200" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <select name="P_JuZhuDi_Area" id="P_JuZhuDi_Area" onChange="changepro('P_JuZhuDi_City','P_JuZhuDi_Area');"> <optio 阅读全文
posted @ 2012-11-05 09:52 Liu66~ 阅读(2451) 评论(0) 推荐(0)
摘要:2.2.4新增{aspcms:form}、{navlist:pic} 请对照以下说明,更多信息请访问 http://www.aspcms.com一、网站通用标签{aspcms:sitepath} 网站终极目录(可放在二级目录,其它语言则在三级目录){aspcms:languagepath} 语言目录{aspcms:siteurl} 网站地址{aspcms:sitelogo} LOGO地址{aspcms:sitetitle} 网站标题{aspcms:additiontitle... 阅读全文
posted @ 2012-11-05 09:49 Liu66~ 阅读(312) 评论(0) 推荐(0)
摘要:把文本框中的信息显示在下拉列表中(信息之间用/隔开)"" then%> 阅读全文
posted @ 2012-11-05 09:45 Liu66~ 阅读(287) 评论(0) 推荐(0)