Asp
quweiie
持之以恒
展开
-
asp读取sqlserver2019返回的json
asp读取数据库返回的JSON原创 2022-09-11 07:48:28 · 299 阅读 · 0 评论 -
excel导入sqlserver(asp版)
excel导入sqlserver原创 2022-01-20 14:10:16 · 1096 阅读 · 0 评论 -
asp利用腾讯地图接口(web service)获取两点间的距离
'Option Explicit'解析jsonsession.codepage=65001response.charset="utf-8"server.scripttimeout=999999Dim sc4Json Sub InitScriptControl on error resume next Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl") sc4Json.Language = "JavaSc.原创 2021-11-05 16:37:12 · 306 阅读 · 0 评论 -
asp批量获取微信用户信息
'checkloginaccess_token=GetToken()'echo(access_token)'dieddim userlistURL,arr0,i,rs,strTempuserlistURL="https://api.weixin.qq.com/cgi-bin/user/info/batchget?access_token="&access_tokenset rs=conn.db("select TOP 1000 openid from idea_wx_user","1".原创 2020-07-11 10:09:17 · 404 阅读 · 0 评论 -
vip会员升级
u_level=2 '升级高级VIP set rs = conn.db("SELECT * FROM vip_user WHERE open_id='"&openid&"'","1") if Not rs.EOF Then if rs("pay_state")=1 then '已支付 if rs("vip_level")=2 then '当前会员级别:vip ...原创 2020-02-14 15:35:10 · 867 阅读 · 1 评论 -
asp三级分销佣金/提成代码;
'--------------------------------'参数uid为用户id,total为消费金额;'--------------------------------sub commission(uid,total) dim sql,rs,pid1,pid2,pid3 sql="select PID from idea_User where id="&uid se...原创 2020-01-13 21:38:28 · 559 阅读 · 1 评论 -
asp购物车源码
无标题文档a{text-decoration:none;}td,div{font-size:12px}<%dim action,bookid,aProducts,delid,i,conn,rs,sql,sNewProductsset conn = Server.CreateObject("adodb.connection")conn.connectionstring="p原创 2014-05-18 13:27:33 · 5276 阅读 · 2 评论 -
asp+ajax
无标题文档//此处在浏览器加载完毕后,执行window.onload$(function(){ //$.get(url,[data],[callback],[type]); //此处查询jQuery手册,也可以用下列语句写 //$.ajax({type:'POST',url:'',data:'',success:''}) //$.get("handle.asp",{rnd:ne原创 2012-12-04 21:59:19 · 859 阅读 · 0 评论 -
asp动态生成xml
<%dim rs,sql,id,title,url,strTempid=Request.QueryString("id")title=request.Form("title")url=request.Form("url")if id<>"" then sql="select * from [videos] where id="&idelse sql="select * from原创 2012-11-13 21:03:03 · 4216 阅读 · 0 评论 -
利用LocalResizeIMG插件压缩图片通过ajax上传图片(ASP版)
手机端通过localresizeIMG插件压缩图片,然后通过ajax方式上传(asp版)原创 2016-12-18 14:56:00 · 2906 阅读 · 3 评论 -
让5ucms大类分页改进方法 显示全部子类文章
5ucms大类下面显示所有文章(可分页): 比如有一个大类:新闻,新闻下面又添加了几个小类,国内新闻,国外新闻。 如果我想点击新闻的时候把所有的新闻都显示出来(国内新闻、国外新闻),现在程序实现不了这个功能,于是就查看了一下5u的程序,找到了解决的办法,于是发个帖子,分享出来: 打开inc/class_template.asp这个文件,找到289行, 把 If Len(CID) >转载 2012-08-05 11:20:04 · 2124 阅读 · 1 评论 -
asp+ajax版的购物车
购物车- 我的购物车 选项 商品信息 单价(元) 数量 金额 操作 <% dim proId,act,qty,k,rs act=Request.QueryString("act") proId=Request.QueryString("proId") qty=Reques原创 2016-02-02 16:14:34 · 3011 阅读 · 1 评论 -
asp链接access2010数据库
https://www.microsoft.com/zh-cn/download/details.aspx?id=13255Access 2010 数据库引擎可再发行程序包不用于以下用途:作为 Jet 的一般替代品(如果您需要 Jet 的一般替代品,应该使用 SQL Server Express Edition)。作为服务器端应用程序的 Jet OLEDB 提供程序的替代品。 作为一般转载 2016-03-05 16:29:14 · 4591 阅读 · 0 评论 -
uploadifive 改进版 用于HTML5手机网站上传图片
/*UploadiFive 1.1.2Copyright (c) 2012 Reactive Apps, Ronnie GarciaReleased under the UploadiFive Standard License */(function(b) { var a = { init: function(c) { return thi原创 2016-05-18 13:42:23 · 3426 阅读 · 0 评论 -
asp链接excel2016
asp链接excel2016,当然前提是服务器上要装【Microsoft Access Database Engine 2016/2010 Redistributable】原创 2017-08-14 00:57:45 · 2787 阅读 · 0 评论 -
asp判断用户是否关注了公众号
1、微信公众号(服务号)必须认证;2、微信公众号后台,白名单、安全域名、回调URL等设置一定要正确,不明白的百度下;3、上代码:Test.html<script type="text/javascript">var url="https://open.weixin.qq.com/connect/oauth2/authorize?appid=你的APPID&r...转载 2019-05-25 06:38:08 · 826 阅读 · 1 评论 -
图片无缝向左滚动
<%set rs = Server.CreateObject("ADODB.Recordset")rs.open "select id,title,pic from equipment",conn,1,1if not rs.eof then while not rs.EOF Response.Write("") rs.movene原创 2009-07-20 11:39:00 · 628 阅读 · 0 评论 -
asp 随机密码
Function getCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" k=Len(arrChar) Randomize For i=1 to iCount转载 2012-01-14 10:59:38 · 531 阅读 · 0 评论 -
再谈Fckeditor(ASP版)防止木马上传——修改上传类
在上一篇博文《Fckeditor 2.6.3 (ASP版) 修改(二) ——检测上传文件是否为木马》防止木马的上传采用的是文件上传之后,将文件以文本方式打开,检查是否存在危险字符串,如果存在则删除该文件。同样这个方法也可以用在eWebEditor的防止上传木马中。近日,通过研究发现将上述过程转移到上传类中,效果更佳。 Fckeditor使用是NetRube Upload Class转载 2009-09-22 11:31:00 · 921 阅读 · 0 评论 -
添加、编辑信息类
<%dim connset conn=Server.CreateObject("ADODB.Connection") conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../database/#gtwz.mdb") conn.OpenClass D原创 2009-11-18 10:54:00 · 587 阅读 · 0 评论 -
asp 存储过程(分页)
CREATE PROCEDURE sp_newpage @tb varchar(50), --表名 @col varchar(50), --按该列来进行分页 @coltype int, --@col列的类型,0-数字类型,1-字符类型,2-日期时间类型 @orderby bit, --排序,0-顺序,1转载 2009-09-19 16:41:00 · 476 阅读 · 0 评论 -
asp edition pagenation
Function PageList_str(iPageValue,iRetCount,iCurrentPage,Url) Dim PageCount //页总数 Dim PageRoot //页列表头 Dim P原创 2009-07-28 10:43:00 · 486 阅读 · 0 评论 -
Upload Image 安全防范
Dim MyFile,MyText,sTextAll,sStr,snum,filedel Set MyFile = Server.CreateObject("Scripting.FileSystemObject") Set MyText = MyFile.OpenTextFile(Server.MapPath(filename)) 读取文本文件转载 2009-07-21 14:09:00 · 480 阅读 · 0 评论 -
asp digital pagination
<% Response.Charset="gb2312" Function VbsUnEscape(str) Dim x x=InStr(str,"%") Do While x>0 VbsUnEscape=VbsUnEscape&Mid(str,1,x-1) If LCase(Mid(str,x+1,1))="u" Then VbsUnEs原创 2009-03-23 11:42:00 · 421 阅读 · 0 评论 -
关于ASP循环表格的问题之解答,详情请看!
在很多时候,我们采用原始的方法来解决一行内循环3张图片,如果上传者只上传了2张图片,那么2张图片间的距离会很大,因为缺少了一个 . so, i want to take a method for solute this,follow this"0" cellpadding="0" cellspacing="0">原创 2008-11-04 08:43:00 · 645 阅读 · 0 评论 -
asp数字分页类,如下:
信息分页 Class Cls_ShowoPage public Showo_PageSize,Showo_CurrPage Private Showo_Sql,Showo_Field,Showo_qurry,Showo_OrderBy,Showo_Id Private Showo_RecCount,Showo_PageCount,转载 2008-08-24 07:19:00 · 1555 阅读 · 3 评论 -
通过js实现2个select控件的交换数据
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>title>Untitled Pagetitle>script原创 2008-05-25 15:45:00 · 1462 阅读 · 0 评论 -
多文件上传处理页面
<% dim upload,i,formName,file,fileExt,filepath,myfile,filesum set upload=New upload_file i=0 filesum="" for each formName in upload.File set file=upload.File(formName) fileExt原创 2009-12-17 18:51:00 · 806 阅读 · 0 评论 -
Upload class
<%dim oUpFileStreamClass upload_file dim Form,File,Version Private Sub Class_Initialize 定义变量 dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo原创 2009-12-17 17:50:00 · 895 阅读 · 0 评论 -
商城积分兑换(asp版)
dim userId,proScoreproScore=Request.QueryString("proScore")userId=Session("userId")if userId="" or isEmpty(userId) or isNull(userId) Then Response.Write("请您先登录,谢谢!") Response.End()else i原创 2011-12-09 12:10:11 · 2384 阅读 · 0 评论 -
asp长文章分页
dim sContent,tempContent,pgCount,pageStr,currentPage currentPage=Request.QueryString("page") if currentPage="" Then currentPage=1 Else currentPage=CLng(currentPage)原创 2011-11-28 16:31:51 · 630 阅读 · 0 评论 -
asp shopping cart
asp shopping cart原创 2011-08-06 19:22:08 · 975 阅读 · 0 评论 -
asp
dim cardID1,cardID2dim str1,str2cardID1=Request.QueryString("cardID1") //起始卡号cardID2=Request.QueryString("cardID2") //截止卡号if cardID1="" OR cardID2="" Then Response.Write("起始卡号和截止卡号不能为原创 2011-06-30 11:51:00 · 381 阅读 · 0 评论 -
asp email jmail cdo
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort=2 Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"原创 2011-06-03 22:26:00 · 1122 阅读 · 0 评论 -
asp利用owc11生成excel,代码如下:
asp owc excel原创 2011-02-26 02:03:00 · 1777 阅读 · 0 评论 -
extjs通过data.store.httpproxy读取后台outData.asp并显示在grid
extjs for gridpanel for classic asp原创 2010-12-08 14:02:00 · 2960 阅读 · 2 评论 -
ASP ShopCart class
asp shopcart class原创 2010-09-29 10:37:00 · 713 阅读 · 0 评论 -
ASP分页代码
%Dim rs,sql,i,page,pagesize1,total,pgcountSet rs = Server.CreateObject("ADODB.Recordset")sql = "select * from [TableName] order by id desc"rs.Open sql,conn,3,1i = 1page = Request("page")pagesize1原创 2007-04-10 14:28:00 · 804 阅读 · 0 评论