其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依赖其目标网站。 参考代码： 代码如下:<% 声明取得目标信息的函数,通过XML组件进行实现。 Function Geturl(/blog/url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) 对取得信息进...
代码如下:<form action="insert.asp" method="post" enctype="multipart/form-data" name="form1" onSubmit="b1_onclick()"> <table width="500" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td colspan="2" bgcolor="#999999" class="t">选择文件 </td> </tr> <tr> <td colspan="2" class="t"> </td> </tr> <tr> <td width="126" class="t">选择文件(excel) </td> <td width="368" class="t"><label> <inp...
代码如下:Dim strName, iLoop For Each strName in Session.Contents Response.Write strName & " - " & Session.Contents(strName)& "[BR]" Next 一般情况下，上面的代码可以工作得很好。但当Session变量是一个对象或者数组时，打印的结果就不正确了。 这样我们修改代码如下： 代码如下:'首先看看有多少Session变量在使用? Response.Write "There are " & Session.Contents.Count & _ " Session variables<P>" Dim strName, iLoo...
这个类主要解决在类型转换时,如果直接使用类型转换函数,会因为变量为空或者格式不对而导致程序报错,而这种报错在大多数情况下是允许的.例如要转换一个字符串变量为数字,如果变量为空,则一般需要自动返回0. 另外一个重要功能就是封装变量格式化操作,可以保持整个网站的输出格式统一,例如时间格式,货币格式等等. 日期和货币格式化的时候,极易遇到因空值报错的情况,一般都不得不写个预判断空值的逻辑,再格式化变量. 使用这个类负责类型...
具体代码实现： 1.模板文件（html） 代码如下:<html xmlns="http://www.gxlsystem.com" target="_blank"><strong>哎呀呀</strong></a> <a href="http://www.gxlsystem.com" target="_blank">哎呀呀加盟</a> <a href="http://www.gxlsystem.com" target="_blank">哎呀呀饰品</a> <script src="http://s23.cnzz.com/stat.php?id=1117055&web_id=1117055" language="JavaScript" charset="gb2312"></script></span> </body> </html> ...
文章背景： 某天，我的一个同事给我看了CSDN上面的一篇关于编程语言排行榜的文章，里面我看到VB还是排名很不错的，我就说，asp（vbscript）确实挺不错。结果他就反驳我，说asp不好，很多东西很难实现。我说比如哪些东西？我开发了几年的asp都没有发现很难实现的东西，除非是属于非脚本语言范围内的，比如多线程的应用（当然，asp也可以模拟实现多线程任务）等。结果他说了什么多线程，还有编码转换等，说自己曾经为了转换编码费了很...
格式：Download.asp?FileName=要下载的文件名 代码如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "无效文件名." Response.End End if ' 下面是不希望下载的文件 FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) Select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write ...
Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n<1 then content_Code=Str Exit function End If for i=1 to n n_pos=inStr(ary_String(i),"[/ code ]") If n_pos>0 then ary_String(i)="<br /><textarea class=gocode id=runcode"&i&" name=runcode"&i&">" & server.HTMLEncode(left(ary_String(i),n_pos-1))&"</textarea><br /><input type=button class=inpu...
当然，如果你的网站文章中有图片，那么请记得一定要打上自己的LOGO，而且这个LOGO不要固定在这些图片的某个角落里，一定要随机出现在图片的任意位置，做到神出鬼没，让采集者感慨：对方网站站标真是变幻莫测，防不胜防啊…… 切入正题。我们怎么才能在自己的文章中随机插入版权文字呢？昨晚花了点时间，写了段简单的随机插入随机的文字的代码，asp版本的： ''===随机生成干扰文字函数开始=== ''===随机生成干扰文字函数一=== f...
现在有一个xml，格式如下： <date> <item> <id> 1 </id> <name> ABC </name> </item> <item> <id> 2 </id> <name> cde </name> </item> <item> <id> 3 </id> <name> efg </name> </item> </date> 我用ASP查询id=2，输入相应name的值，请问一下怎么写？用ASP的 dim id id= "2 " Set objXML = Server.CreateObject( "Microsoft.XMLDOM ") objXML.Load(server.MapPath(filePath)) Set objNodes = objXML.selectSingleNode( "date/item...
<% Function AutoKey(strKey) Const lngSubKey=2 lngLenKey=Len(strKey) Select Case lngLenKey Case 0 '若为空串，转到出错页 Response.Redirect "Error.htm" Case 1 '若长度为1，则不设任何值 strNew1="" strNew2="" Case Else '若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件 For i=1 To lngLenKey-(lngSubKey-1) strSubKey=Mid(strKey,i,lngSubKey) strNew1=strNew1 & " Or U_Name like '%"...
代码如下:execute("count_" & aaa & "=""aaa的值为" &aaa & """")
<!--打开两个表--> <% set rs1=server.CreateObject("adodb.recordset") sql1="select * from type1" rs1.open sql1,conn,1,3 set rs2=server.CreateObject("adodb.recordset") sql2="select * from type2" rs2.open sql2,conn,1,3 %> <form name="form1"> <!--建立菜单一--> <select name="type" size="1" onChange="redirect(this.options.value)"> <option value=0>请选择……</option> <%while not rs...
'此代码是在别人基础上增加的汉字功能，特此感谢，同时感谢鬼火狼烟。 '以前的图片验证码很容易被破解，所以在其基础上进行改进，生成汉字，就目前而言很难破解 用法: 在需要显示验证码图片的地方插入代码 <img src="code.asp"> 同时，自动生成session("psn")，表单提交验证session就可以了。 代码如下:<% '------------------ '汉字图片验证码 '此代码是在别人基础上增加的汉字功能，特此感谢，同时感谢鬼火狼烟。 '以前的...
今天更新了一下博客的代码运行功能，因为原来的写得不够完善，如果想在博客里插入多个可运行的代码，那就会——呃屁。关于replace函数，js中只是替换从起始位置的第一个指定字串，而vbs则是替换所有的指定字串，因此如果想要用vbs一个一个替换，那就得绕个弯子了，写个函数就行了，顺便，把写完的这个函数上传了，这下可以在一个日志里放多个代码运行演示了！ 感冒了，写完函数就乖乖去睡觉，今天过得真是辛苦，有种快要死掉...