asp
关注
分享
扫一扫
snlixing
这个作者很懒，什么都没留下…
展开
-
DVBBS中使用到的一些共用Function
<%'判斷髮言是否來自外部PublicFunctionChkPost()Dimserver_v1,server_v2Chkpost=Falseserver_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))server_v2=Cstr(Request.ServerVariables("SERVE...转载 2009-01-17 13:18:00 · 999 阅读 · 1 评论 -
上一篇,下一篇链接代码
'******************************************************'Depiction：ShowHead'Param：CiassID 类别ID号' Article_id 当前文章ID号'Returns：返回上一篇文章的链接'Create Date：07/07/2006'*****************************...转载 2007-05-28 08:35:00 · 5218 阅读 · 0 评论 -
根据IP显示不同网页
<%function cip(sip)tip=cstr(sip)sip1=left(tip,cint(instr(tip,".")-1))tip=mid(tip,cint(instr(tip,".")+1))sip2=left(tip,cint(instr(tip,".")-1))tip=mid(tip,cint(instr(tip,".")+1))sip3=lef...转载 2007-05-28 09:01:00 · 1871 阅读 · 0 评论 -
FSO 相关的代码
比较多人问过的问题，动态include文件'利用FSO动态调用文件Functioninclude(filename)Dimre,Content,FSO,F,aspStart,aspEndSetFSO=CreateObject("Scripting.FileSystemObject")SetF=FSO.OpenTextFile(Server.MapPath...转载 2007-06-12 11:05:00 · 834 阅读 · 0 评论 -
如何取得字符串中字符长度
FunctionLengthOfString(str)Diml,c,i,tLengthOfString=0Ifstr=""ThenExitFunctionl=Len(str)Fori=1tolc=Abs(Asc(Mid(str,i,1)))Ifc>255thent=t+2Elset=t+1...原创 2007-06-12 11:08:00 · 689 阅读 · 0 评论 -
分页代码
<!--#includefile="conn.asp"--><%N_type=request("N_type")setrs=server.createobject("adodb.recordset")sql="select*fromnews"ifN_type<>""thensql=sql&"whereN_type='"&...原创 2007-06-19 08:41:00 · 1240 阅读 · 1 评论 -
长文章分页代码
<%Functionc2u(myText)Dimic2u=""Fori=1toLen(myText)c2u=c2u&"&#x"&Hex(AscW(Mid(myText,i,1)))&";"NextEndFunctionFunctioncutStr(str,strlen)'去掉所有HTML标记Dimr...转载 2007-06-19 09:57:00 · 1455 阅读 · 1 评论 -
一行n列显示代码
<table><tr><%setrs=......sql=...rs.open.....dimii=0dowhilenotrs.eofi=i+1%><td>.....新闻标题等显示内容</td><%if(imodn)=0thenresponse.write"</tr><tr>"end...原创 2007-06-19 11:18:00 · 915 阅读 · 0 评论 -
ASP内容分页
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。很简单，在要截断的地方附近找下面的符号:；’”？。！;".!如果后面存在<p>或<br>就分页。主要是要研究文章的格式。<%ifRequest.ServerVariables("Content_Length")>0thencontent=Re...转载 2007-07-19 17:11:00 · 1252 阅读 · 0 评论 -
asp+access 怎样才能随机抽数据库中的记录?
asp+access 怎样才能随机抽数据库中的记录?要求每次抽的都不一样.网上有这样的说法select top 50 * from tab_st order by rnd(id)但是这样,每次抽的都是一样的,这样毫无意义.请高手指点更合适的方法.谢谢简单高效：不重复随机读取数据库记录Set rs = Server.CreateObject("Adodb.RecordSet")rs...转载 2007-07-20 16:59:00 · 3953 阅读 · 1 评论 -
ACCESS数据库防下载技术
这里首先要说明的是，现在绝大多数网站制作人员都认为，把*.mdb的数据库文件扩展名改为*.asp的文件，别人就无法下载，我在这里要说明的是，这是一个非常错误的做法！！虽然你把扩展名改为*.asp的了，别人无法通过输入这个数据库的URL地址来下载，但是，稍聪明一点的人，仍然可以把你这个*.asp的文件给下载下来，方法如下(假设http://abc.com/db/db1.asp为你的数据库地址)： ...原创 2007-08-27 15:22:00 · 1078 阅读 · 1 评论 -
仿百度分页程序
<%functionNumericPage(curPage,totalPage)pageStart=curPage-2ifpageStart<=0thenpageStart=1pageEnd=curPage+2ifpageEnd>totalPagethenpageEnd=totalPage...原创 2007-08-30 16:18:00 · 736 阅读 · 0 评论 -
完整分页函数
<%'连接数据库Setrs=Server.CreateObject("ADODB.Recordset")sql="Select*FROMbaseset"rs.opensql,conn,1,1IFnotIsNumeric(Request("page"))OrIsEmpty(Request("page"))Thenpage=1...转载 2007-09-13 11:39:00 · 663 阅读 · 0 评论 -
ASP生成HTML
<!--index.htm----------------------><!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled...转载 2008-04-25 10:14:00 · 695 阅读 · 0 评论 -
适合所有表的添加、删除、修改的函数
由于数据库中的每张表中的字段名不一样，所以在写后台程序的时候，通常会写多个页面，对应不同的表。这里介绍一个函数，适合所有的表，不需要再为每一个表写添加，删除，修改页面了，这样会省下许多时间去做别的事。<%'===========================================' 函数功能：实现向数据库中任何表中添加、删除、修改内容' 作 者：wangsdon...转载 2008-06-15 10:12:00 · 615 阅读 · 0 评论 -
实例方法：解决ASP图像上传漏洞
常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。针对此情况使用下列函数进行辨别：<%'******************************************************************'CheckFileType 函数用来检查文件是否为图片文件'参数filename是本地文件的路径'如果是文件jpeg...转载 2007-05-11 11:41:00 · 873 阅读 · 0 评论