asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n0 then ary_String(i)="" [/ code ] 需要注意
Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n0 then ary_String(i)="" [/ code ] 需要注意
格式:Download.asp?FileName=要下载的文件名 实现代码如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileNa
"&obj&"" obj=Request.Form(obj) response.write obj&"" Next %>
思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下:实现代码如下:Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt
如果在session级保存一个dictionary对象会降低系统的性能,而在application级保存一个dictionary对象会导致web服务器崩溃,关于这个就不在多说了。 现在我们要考虑的是dictionary对象在单页的时候,有哪些设计时的缺陷: 大家可以这么试试 set rs=serve
假设在搜索框search中输入:“asp 编程” 先得到输入框中的内容:search=request("search") 然后将这两个值分别取出来 s=split(search," ") '构造sql函数 sql="select * from news" for i=0 to ubound(s) m
这主要是因为杀毒软件将一些asp关键词当作木马特征,记录保存着,所以遇到有这个关键词,就会禁止运行或删除。解决的方法是将这些关键词给拆开。 把 实现代码如下:dim tStream set tStream = Server.CreateObject("adodb.stream") 改成 实现代码如下
程序代码: 以下为引用的内容: 实现代码如下:'关键字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim
修改文件的名字 使用“FileSystemObject(文件系统对象)”的GetFile函数得到一个“文件对象”,然后修改这个“文件对象”的name属性 实现代码如下:set fso=Server.CreateObject("Scripting.FileSystemObject") set file
星期五写了个分类信息的小东东!在数据库里只有ip地址,一般访客不太清楚IP地址来源于哪个城市.如果在表里多一个列保存城市又没有真实性可言.如果能把IP地址变成城市多好呀.当然可以去down下数据库.可就为这个需求觉得有点浪费.还好了有好多网站提供查询.如果能把它的结果变成我的.问题解决. 需要一个j