php版的代码比较简单： 代码如下:<?php $p=$_GET[p]; $pics=file($p); for($i=0;$i< count($pics);$i++) { echo $pics[$i]; } ?> 使用方法：将文件保存成i.php上传到根目录 将不能外链的图片地址改成http://你的域名p.php?p=图片地址 asp版，网上用的比较多的 代码如下:<% Dim url, body, myCache url = Request.QueryString("url") Set myCache = new cache myCache.name = "picindex"&url If myCache.valid Then body = myCache...
类名 :HttpRequest($url="",$method="GET",$useSocket=0) //$url为请求的地址；默认请求方法为GET；$useSocket默认为0，使用fsockopen方法，如果设置为1则使用socket_create方法 方法： open($ip="",$port=-1) //打开同服务器的连接，默认不用设置这两个参数（一个同事在linux用的时候，请求的不是hostname解析的IP，因此加了这两个参数，以连接真实的服务器IP） setTimeout($timeout=0) //设置获取数据的超时时间，必须在send方法...
asp函数代码： 代码如下:function checkip(checkstring)用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern=”^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$”re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function function get_cli_ip()取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDRdim client_ipif checkip(Request.ServerVariables(”HTTP_CLI...
javascript函数已经有了，有没有Asp的函数？？？ 或者有没有高手可以把下面的写成asp的 ,万分感谢~！！ 代码如下: asp 不等于 vbs, 只是个框架而已 这段代码你在 script 里加个 runat="server" 然后直接调用这个函数就可以了 ... toEncode(xxx) %>JavaScript教程/参考手册 JavaScript热搜 解决vue-router中的query动态传参问题解决使用vue.js路由后失效的问题微信小程序实现换肤功能JS中touchstart事件与clic...
首先声明一个数组：代码如下: var dictNew=new Array; var key; var value; for (var i = 0; i <50; i++) {//获取要添加到数据字典的键值对 key= jQuery("#costCodeIdId"+i).val();value = num2zero(jQuery("#valueId"+i).val());//检查该key值是否在数据字典中存在，如果不存在，直接把key值和value添加到数据字典中，如果存在该key键值，则value值累加 if(checkHasInDict(key,dictNew)){ dictNew[key] ...
<% For each obj in Request.Form response.write "<font color=red>"&obj&"</font><br>" obj=Request.Form(obj) response.write obj&"<br>" Next %> <form name=form action="1.asp" method="post"> <input type=text name="ad"><br><br> <input type=text name="sdf"><br><br> <input type=text name="r4g"><br><br> <input type=text name="hrre"><br><br> <input type=submit value="update"> </form>
<% 'asp 数组 批量修改记录 id=Request("id") id=Split(id,",") hits=Request("hits") hits=Split(hits,",") regtime=Request("regtime") regtime=Split(regtime,",") For i=LBound(id) To UBound(id) Set rs = Server.CreateObject("ADODB.Recordset") sql= "Select * from article where id ="&id(i) If Not rs.EOF Then rs("hits")=hits(i) rs("regtime")=regtime(i) rs.Upd...
因为要做移动梦网WAP的一些接口，所以要用到这种方式，接下来会有ASP.net版本的，这个是ASP版本的，利用了MSXML2.XMLHTTP对像。 request.asp 代码如下:dim Https set Https=server.createobject("MSXML2.XMLHTTP") '定义一个XMLHTTP对像 Https.open "POST","http://127.0.0.1/testpost/response.asp",false Https.send "<?xml version=""1.0""?><misc_command version=""1.6""><command_name>echo</command_name> <command...
今天在网上看到的，一大堆测试数据，懒得看了，把结论抄下来。 比如 <% Dim a(10000),i,t t=Timer For i=0 to 10000 a(i)=CStr(i) Next Response.Write Join(a,vbCrLf) Response.Write timer-t Erase a %> 速度可以和php一拼（虽然还是没有他快)，另一种用法是 s=Join(Array("1","2","3",.....,"9999")) 速度依然比"1" & "2" & "3" & .....& "9999"要快很多
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title></title> </head> <STYLE> BODY { SCROLLBAR-FACE-COLOR: #E8F5FE; SCROLLBAR-HIGHLIGHT-COLOR: #AAC7E9; SCROLLBAR-SHADOW-COLOR: #fcfcfc; SCROLLBAR-3DLI...
<!--#include file="inc/conn.asp"--> <% dim rs,sql,filename,fso,myfile,x Set fso = server.CreateObject("scripting.filesystemobject") filename = Server.MapPath("download.txt") if fso.FileExists(filename) then fso.DeleteFile(filename) end if '--创建txt文件 set myfile = fso.CreateTextFile(filename,true) Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from userfile" rs.Open ...
<% a="日本是中国的一个省|我们美丽中国的张家界！" b="中国,我们,张家界,日本,美国,苹果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n="" for i=0 to ubound(b) if instr(a(k),b(i))>0 then s=s & instr(a(k),b(i)) & "," &instr(a(k),b(i))+len(b(i)) & "," end if next s=left(s,len(s)-1) if left(s,len(s)-1)<>len(a(k)) then s=s&","&len(a(k))+1 s=sort(split(s,",")) for i=0 to ubound(s)-1 ...
自己做了asp的二级域名转向已经使用当中，但用到另一种方法：前台JS加ASP的转向程序却转不了，程序调试已经通过但不能转向不知道为什么请帮忙指出原因，谢谢！！！ <% Dim whkDbq,whkSql,whkRs,whkCount Set whkConn = Server.CreateObject("ADODB.Connection") whkDbq = Server.MapPath("SqlTaoFun.mdb") whkConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&whkDbq whkSql = "select bh,id from UserInfo where State=...
javascript函数已经有了，有没有Asp的函数？？？ 或者有没有高手可以把下面的写成asp的 ,万分感谢~！！ 代码如下: <SCRIPT LANGUAGE="JavaScript"> <!-- function toEncode(s,l) {enc=new ActiveXObject("Scripting.Encoder"); return enc.EncodeScriptFile("."+l,s,0,l+"cript"); } var STATE_COPY_INPUT = 100 var STATE_READLEN = 101 var...
代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); }