ASP
关注
分享
扫一扫
iteye_14829
这个作者很懒，什么都没留下…
展开
-
我常用的ASP代码汇集
一、ASP连接数据库的代码1、连接无密码的ACCESS数据库：Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db.mdb")2、连接带密码的数据库：第一种：Set conn = Se...2009-06-23 09:23:40 · 120 阅读 · 0 评论 -
用upload_5xsoft上传中文文件名乱码的解决方式
查找upload_5xsoft.inc文件 tStream.Charset ="gb2312" 更改为tStream.Charset ="UTF-8"一共有两处原创 2012-02-11 17:48:11 · 544 阅读 · 0 评论 -
Jmail发邮件代码
按照下面的说明调用SendMail函数！ Jmail 4.4.0 Free Edition可以到这里下载http://dev.mo.cn/detial.asp?id=60(注册方法,拷贝jmail.dll到system32文件夹,开始-运行-输入regsvr32 jmail.dll-确定) <%'按照下面方法调用response.write SendMail("发邮...原创 2012-07-08 00:07:50 · 443 阅读 · 0 评论 -
Ajax跨域代理访问网络资源
解决Ajax跨域访问报“没有权限”的错误。代码下载地址:http://dev.mo.cn/upfiles/20101118175349810.rar <!--#include file="smart.asp"--><%Response.charset="utf-8"dim url,method,data,charseturl =Request.Form...原创 2012-07-08 00:22:41 · 114 阅读 · 0 评论 -
用ASP读取文本文件的几个函数
'************************************************** '函数名：FSOFileRead '作 用：使用FSO读取文件内容的函数 '参 数：filename ----文件名称 '返回值：文件内容 '************************************************** function FSOFileRead(filen...原创 2011-10-30 20:22:04 · 405 阅读 · 0 评论 -
ASP调用服务器端EXE程序编译运行PAS程序的代码
程序编译的参照代码：FilePath=UploadPath & "U" & session("id") & "\"FileFile="P" & request("ID") & ".pas"FileFileGcc="P" & request("ID&quo原创 2011-12-01 09:45:10 · 245 阅读 · 0 评论 -
用VBS实现JS的escape和unescape功能
Function vbsEscape(str) dim i,s,c,a s="" For i=1 to Len(str) c=Mid(str,i,1) a=ASCW(c) If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=1...原创 2012-08-20 21:16:26 · 434 阅读 · 0 评论 -
用回溯算法实现从题库中随机抽取一题或多题组成规定分数的试卷
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns=&qu原创 2013-05-17 11:11:29 · 293 阅读 · 0 评论 -
随机从ACCESS数据库中抽取N条记录的SQL语句
Randomizesql="select top 5 * from 表名 ORDER BY Rnd(-(ID+"&Rnd()&"))"原创 2013-08-17 16:36:20 · 1576 阅读 · 0 评论 -
在ASP中用replace只替换一次的写法
格式：Replace("原字符","在查找的字符串","替换成的字符串",替换次数,开始位置)说明：若开始位置不是1，需要在前面加上“位置”前的所有字符。例如：tt="ABCDABCDABCD"wz=5tt=left(tt,wz-1)&Replace(tt,"B","Z",wz,1)运行后tt="ABCDAZCDABCD"原创 2013-09-04 17:24:21 · 915 阅读 · 0 评论 -
在WIN2008R2中注册VB6编译的32位DLL并让ASP成功调用
1、把hbwlAspDll.dll复制到C:\Windows\SysWOW64中。2、点击“开始”->在“命令提示符”上鼠标右击并选择“以管理员身份运行”。3、在打开的DOS窗口中输入下面两行代码CD C:\Windows\SysWOW64regsvr32 hbwlaspdll.dll会提示“DllRegisterServer 在 hbwlaspdll.dll 已成功”...原创 2013-09-11 22:41:35 · 599 阅读 · 0 评论 -
在Netbox中防止乱码的方法
只需在页面的第一行加上如下代码就行了<%Response.Addheader "Content-Type","text/html; charset=utf-8"%>就可以了。 编码可以是utf-8，也可是gb2312。原创 2012-11-28 09:35:16 · 843 阅读 · 0 评论 -
在ASP中如何获取SQL新增ID
conn.Execute("insert into Tb_Order(CT_Name,CT_Ideny,CT_Tel,JD_Name,P_Number,P_Time,Hit) VALUES('"&vCT_Name&"','"&vCT_Ideny&"','"&vCT_Tel&"','"&vJD_Name&原创 2012-12-09 22:04:06 · 520 阅读 · 0 评论 -
用ASP代码解决跨域访问微信企业号接口的问题
研究了好几天也没研究出用AJAX跨域访问微信企业号接口，而用ASP就能很容易地跨域访问。核心代码如下：<script language="javascript" runat="server"> function evalJsonStr(str){return eval("(" + str + ")");} </script><原创 2015-03-25 11:59:02 · 779 阅读 · 0 评论 -
采集他人网站新闻的ASP代码
下面的代码是采集人民网基础教育的前10条新闻<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">原创 2011-03-03 23:59:00 · 294 阅读 · 0 评论 -
ASP创建真正的EXCEL文件
<%on error resume nextDim xlWorkSheetDim xlApplicationSet xlApplication = server.CreateObject("Excel.Application")if err.number<>0 then Response.Write "错误发生：" & err.descriptio...原创 2011-09-30 11:38:50 · 441 阅读 · 0 评论 -
在项目中用来调用我编写的通用类的配置文件
为了调用我编写的通用类hbwlClass.asp，新建了一个配置文件hbwlConfig.asp，内容如下：<!--#include file="hbwlClass.asp" --><!--#include file="md5.asp" --><%set hbwl = new hbwlClshbwl.database="#baoxiu.mdb"...2009-06-23 09:51:45 · 141 阅读 · 0 评论 -
用VB将ASP代码封装成DLL的方法
将ASP代码封装在DLL中的好处是：可以保护我们的代码，可以提高运行速度，缺点是要先在服务器上注册这个DLL组件。 将ASP代码编译成dll组件的步骤：1、打开您的Microsoft Visual Basic，新建工程ActiveX DLL 2、修改工程名(如hbwl)和类模块的名称(如class)3、增加到引用asp：点击工程--引用,然后选择其中的Microsof...2009-06-23 11:07:03 · 250 阅读 · 0 评论 -
ASP导出为Word或Excel的最简单方法
我在做一项目时，客户要求要将从数据库中获取数据后的ASP页面导出成EXCEL或WORD文档。经本人试验后找出了最简单的方法：在ASP文件的最开头位置加入下面的代码就可以了，非常简单。EXCEL<%Response.ContentType ="application/vnd.ms-excel"Response.AddHeader "Content-Disposition", "...2009-07-03 17:40:38 · 483 阅读 · 0 评论 -
在ASP中将从数据库中获取的数据写入已设计好的EXCEL模板中
这是个变通的方法，事先在EXCEL中的sheet1表中设计好页面尺寸、字体大小、字体颜色等。再把要想填数据的单元格指向sheet2表的的一个单元格，sheet2中这些单元格是通过ASP代码将数据库中的数据读取后写入的。 1、附上我项目中的这个ASP文件paigongdan.asp<!--#include file="hbwlConfig.asp" --><!DOC...2009-07-09 23:51:00 · 325 阅读 · 0 评论 -
在ASP中解决相同cookies变量名的最简单方法
在一个网站中，若每页都使用了同一个cookies变量名，而又不想让每页的cookies变量值相同，有个最简单的方法：在每个cookies变量名前加上本页的ASP文件名。代码如下：第一步：把下面的代码放在公共的config.asp中cUrl=Request.ServerVariables("URL")wz1=InStrRev(cUrl,"/")+1wz2=InStrRev(cUrl,...原创 2010-10-09 21:18:50 · 177 阅读 · 0 评论 -
ASP通过JMail组件读取邮件列表
<html><style type="text/css"><!--body,td,th { font-size: 9pt;}--></style> <body> <table width="800" border="0" cellspacing="1" cellpaddin2010-03-19 11:33:37 · 258 阅读 · 0 评论 -
从GB2312的页面转到UTF8页面出现乱码的解决方法
我最近开发的“红宝网络打字系统V9.1 ”采用了UTF8编码，发而到互联网后，在采用了GB2312编码的网站超链接到打字系统时出现了乱码。经研究找了原因及解决方法。 原因：如先打开GB2312页面，数据库按照GB2312读取数据库内容。而在此时您再打开UTF-8页面时，若页面没有设置编码，数据库会按照刚刚使用过的编码类型即GB2312读取数据库，这就造成了乱码。 解决方法：在U...2009-08-27 23:42:42 · 798 阅读 · 0 评论 -
解决红宝网络打字系统在IE6中打中文字时会屏闪的方法
前不久发布的红宝网络打字系统V9.1后，经过一段时间的测试，发现在IE6中打中文字时屏幕会闪烁，经过分析和对比以前版本的代码，发现只有用了框架之后才可避免屏闪的问题。<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitio...2009-09-13 15:52:12 · 197 阅读 · 0 评论 -
win2003的IIS 6.0对asp上传大小限制的解除方法【附图】
第一步：修改IIS设置，允许直接编辑配置数据库，如下图所示：第二步：先在服务里关闭iis admin service服务 找到windows\system32\inesrv\下的metabase.xml, 打开，找到ASPMaxRequestEntityAllowed 把他修改为需要的值，默认为204800，即200K把它修改为你所需的大小即可。如：51200000（50M）然后重启iis ad...2010-04-17 16:46:20 · 178 阅读 · 0 评论 -
在ASP中UTF8与GB2312互转的代码
<%1、'UTF转GB---将UTF8编码文字转换为GB编码文字function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) '如果UTF8编码文字以%开头则进行转换 if mid(UTFStr,Dig,1)="%" then 'UTF8编码文字大于8则转换为汉字 if len(UTFStr) >= ...原创 2010-06-12 16:45:09 · 349 阅读 · 0 评论 -
ASP读取TXT
<%dim ss(20)set fs=server.createobject("scripting.filesystemobject") file=server.mappath("qq.txt") set txt=fs.opentextfile(file,1,true) for n=1 to 20 ‘读取前二十行if txt.atendofstream then ex...原创 2011-09-21 23:45:06 · 219 阅读 · 0 评论 -
ASP连接数据库的11种方法
1.Access数据库的DSN-less连接方法:set adocon=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _Server.MapPath("数据库所在路径") 2.Access OLE DB连接方法：set adocon...原创 2011-09-30 10:54:23 · 131 阅读 · 0 评论 -
Server.CreateObject("Excel.Application")的权限问题
由于ASP功能的限制，在使用的时候，常常要用到让ASP去调用一些其它组件，但是往往会发生一些权限问题，如下面所示的是：在用ASP创建Excel.Application实例时，提示的错误.(创建代码：set objExcel=CreateObject("Excel.Application"))注：由于把ASP站点放在NTFS文件系统格式下而产生的权限问题请参照 错误类型： Micros...原创 2011-09-30 11:37:43 · 384 阅读 · 0 评论 -
ASP调用W3JMail发送电子邮件
<%response.Charset="UTF-8"sub sendEmail(emails,biaoti,msg) Set jmail = Server.CreateObject("JMAIL.Message") if err<>0 then response.Write("对不起！<br>你的服务器还未安装发邮件的组件！请先运行w3JM...原创 2015-04-18 09:10:23 · 222 阅读 · 0 评论