在做一个前台的登陆和后台的信息审核管理功能时，需要用到记住密码的模块：虽然.net内置了登陆控件，有记住密码的功能，但还是想自己实践一下，以下代码主要应用了COOKIE，包括安全加密的过程等。复制代码 代码如下://设置，删除Cookie//provider jb51.net protected void set_cookie() { HttpCookie UserNameCookie = Request.Cookies["UserNameCookie"]; HttpCookie UserPasswordCookie = R...
1.前台展现实现 网上找到这个jquery.Jcrop,稍看了下,发现它提供的效果完全能满足项目需求. 官方网址:http://deepliquid.com/content/Jcrop.html,感兴趣的朋友可去看看. 页面先引用相关样式和脚本: 复制代码 代码如下:<link href="Styles/jquery.Jcrop.css" rel="stylesheet" type="text/css" /> <script src="Scripts/jquery-1.4.1.js" type="text/javascript"></script> <script src="Scripts/jquery.Jcrop.js" type="text/javasc...
同时我们还可以删除一些空白 段,空行,注释等以使得HTML文档的尺寸变得更小. 让我们先来实现压缩与删除空白类, 继承自Stream类: 复制代码 代码如下:/// <summary> /// CompressWhitespaceFilter /// </summary> public class CompressWhitespaceFilter : Stream { private GZipStream _contentGZipStream; private DeflateStream _content_DeflateStream; private Stream _contentStream; private CompressOptions _compressOptions...
界面布置 主界面设计中有个“删除”按钮，其(ID)为btnDelete。用户在目录浏览中选中要删除的项后，单击该按钮就可以完成删除工作。 代码实现 在“设计”面板中双击“删除”按钮，为其添加事件处理程序如下： 复制代码 代码如下:private void BtnDelete_Click(object sender, System.EventArgs e) { DeleteThings(FileList.SelectedItem.Text); } private void DeleteThings(string FullPath) { if(FullPath.IndexO...
代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% 该程序通过使用ASP的FSO功能，减少数据库的读取。经测试，可以减少90%的服务器负荷。页面访问速度基本与静态页面相当。 使用方法：将该文件放在网站里，然后在需要引用的文件的“第一行”用include引用即可。 =======================参数区============================= DirName="cachenew\" 静态文件保存的...
想要asp能连接mysql数据库需要安装MySQL ODBC 3.51 驱动 //www.gxlsystem.com/softs/19910.html我们先看下面这段代码 代码如下:set conn = server.createobject("adodb.connection") Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=Shops;USER=root;PASSWORD=xxx;" 上面这代码是核心部分了。 SERVER 连接服务器如127.0.0.1 DATABASE 要选择的数据库 shops USER 服务器登录用户名 PASSWORD 服务器登录密码...
ASP也能处理JSON数据?呵呵，刚才在Pjblog论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的~ 太晚了，不测试了。
以前处理JSON太麻烦了，输出还好说，循环一下就可以了，解析真的很头疼。所以遇到 这种问题API问题，一般都是XML处理，不太喜欢，很麻烦。
<%
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")sc4Json.Language = "JavaScript"sc4Json.AddCode ...
PHP向MySQL数据库中写入数据有三个步骤： 1，PHP和MySQL建立连接关系 2，打开MySQL数据库 3，接受页面数据，PHP录入到指定的表中 1、2两步可直接使用一个数据库链接文件即可：conn.php 代码如下:mysql_connect("localhost","root","");//连接MySQL mysql_select_db("hello");//选择数据库 ?> 当然，前提是已经安装WEB服务器、PHP和MySQL，并且建立MySQL表“cnbruce” mysql_connect()中三个参数分别为MySQL地址、MySQL用户名和MyS...
<% 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 ...
代码如下:去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="<(?!img|br|p|div).*?>" re.global=true a=str OutTable=re.replace(a,"") End Function
函数
Function RegImg(TheStr)
Dim RegEx
Set RegEx = New RegExp 建立正则表达对象。
RegEx.IgnoreCase =True 是否区分大小写，True为不区分且默认
RegEx.Global = True 全部匹配还是只匹配第一个
RegEx.Pattern = "<img[^>]*src\s*=\s*["&CHR(34)&"]?([\w/\-\:.]*)["&CHR(34)&"]?[^>]*>" 搜索所使用的正则表达式
If Regex.test(TheStr) Then 判断是否有匹配值，返回True或者False。不受Global属性影...
ASP通过函数来实现替换、保存远程图片，完成自动采集图片、提取图片的功能，函数中自动判断重复图片，智能分析链接路径，并转成成相对的图片地址保存在你指定的网站目录中，我们可将此函数用在后台的编辑器中，当你复制了含有图片的内容后，本代码会自动帮你上传图片。同时本代码也是采集程序中的重要处理函数，函数代码如下：Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl)
If ConStr="$Fal...
代码如下:<%@ Language=VBScript %><%Response.Expires =0 %> <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"> </META> <TITLE> 测试毫秒 </TITLE> </HEAD> <BODY> <SCRIPT RUNAT="SERVER" LANGUAGE="JSCRIPT"> var d = new...
代码如下:<%@Language="VBScript" CodePage="65001"%><%**********************************************注意事项ASP文件需要以UTF-8的格式保存,否则乱码.以下两行代码是为了通过微信接口验证的。response.write request("echostr")response.end**********************************************dim signature 微信加密签名dim timestamp 时间戳dim nonce 随机数dim echostr 随机字符串...
经过多次研究写出了如下代码，有需要的可以参考下 代码如下:kd=server.HTMLEncode(request("keyword"))if kd<>"" then kd=trim(kd)kd=replace(kd," ","") kd=replace(kd,"","") kd=replace(kd,"%","") kd=replace(kd,"\"," ") kd=replace(kd,">",">") kd=replace(kd,"<","<") kd=replace(kd,","," ") kd=replace(kd,"，"," ") kd=replace(kd,"|"," ")kd=replace(kd,";"," ")kd=replace(kd,":"," ")kd=replace(kd,"：","...
2天内的现实new文字