在asp中使用Jscript调用webservices

ggp asp 2013-06-27 301 次浏览
需下载msSoapToolkit20.exe 引用:MSSOAP.SoapClient ??? 例程: ??? <%@ LANGUAGE = JScript %> <HTML> <HEAD> <TITLE>webservice演示</TITLE> </HEAD> <BODY> ??? <% ???????? var WSDL_URL = "http://server0/yundan/webservice1.asmx?WSDL" ?????????? var a, b, res ?????????? var soapclient ??????????? a = 12 ??????????? b = 13??? ??????? soapclient = Server.CreateObject("MSSOAP.SoapClient") ??????? soapclient.ClientProperty("ServerHTTPRequest") = true ‘在ASP中运行 阅读全文...

ASP将access数据导出为excel电子表的方法

ggp asp 2013-06-27 494 次浏览
有一个客户要求后台生成大数据量(每次生成几万条)的会员卡号及密码,金额等。生成的会员卡号及密码要印制在卡上对会员发放。生成大量数据在库中,印制卡片的厂家要拿到数据进行印制怎么办呢? 于是我想到用代码将access中的数据生成Excel表格导出。打印这样不就可以了吗?在网上查找相关资料可都不尽如我意,就自己动手写了这个程序。现放出来供大家分享!大家知道写代码很辛苦,所以要用或者转贴时一定注明出处:http://www.6yee.cn 下面为代码: 以下为引用的内容: <!--#include file="../conn.asp"--> <% if session(" 阅读全文...

asp的日期转换星座函数

ggp asp 2013-06-27 408 次浏览
日期转换星座函数,参数是日期型 function astro(birth) astro="" if birth="" or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonth birthday=day(birth) : if birthday<10 then birthday="0" & birthday birth=trim(birthmonth & birthday) 重整月日,0903型 rAstro=split("水瓶座*0120*0219#双鱼座*0220*0320#白羊座*0321*0420#金牛座*0421*0521#双子座*0522*0621#巨蟹座*0622*0722#狮子座*0723*0823#处女座*0824*0923#天秤座*0924*1023#天蝎座*10 阅读全文...

最简洁的多重查询的解决方案

ggp asp 2013-06-27 486 次浏览
[前言] 我们经常会遇到多重查询问题,而长长的SQL语句往往让人丈二和尚摸不着头脑。特别是客户端部分填入查询条件时,如用普通方法将更是难上加难。 以下巧妙地利用"where 1=1"的恒等式(事实上很多,让它值为TRUE即可)解决此问题。 [正文概要] subject 信息标题 company 发布信息的公司名称 content 发布信息的内容 address 公司地址 infomation 公司简介 note 相关说明 以上值均由FORM提交,然后通过:subject=trim(Request.Form("subject"))等得到相应的值。 <% 这个函数很关键!--------------------------- Function sql(a,b,s 阅读全文...

ASP取得地址URL中的顶级域名的函数

ggp asp 2013-06-27 441 次浏览
Private Function durl(url) Dim domext, s1, s2, re, matches, arrdom, dd domext = "comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn" arrdom = Split(domext, "") durl = "": url = LCase(url) If url = "" Or Len(url) = 0 Then Exit Function url = Replace(Replace(url, "http://", ""), "https://", "") s1 = InStr(url, ":") - 1 过滤掉端口 If s1 < 0 Then s1 = InStr(url, "/") - 1 过滤掉/后面的字符 If s1 > 0 Then url = Left(url, s1) s2 = Split(url, ".")(UBound(Split(url, "."))) If 阅读全文...

ASP错误信息解决:IIS启用父路径的设置

ggp asp 2013-06-27 361 次浏览
今天公司有个客户保修网站后台无法访问,我查看了源代码,发现ASP代码本身并没有什么问题。而且我下到本地能够访问。就是在网上不能正常连接,显示入下错误: Server.MapPath() 错误 ASP 0175 : 80004005 不允许的 Path 字符 /0709/dqyllhsub/news/OpenDatabase.asp,行 4 在 MapPath 的 Path 参数中不允许字符 .. 网页里面用了一个 Response.Redirect 的路径重指向,客户页面里面指向路径写的是相对路径,省略了网站域名地址。 主要是IIS服务器没有开启父路径,修改方法: 在IIS中 属性->主目录->配置->选项中。把”启用父路 阅读全文...

Asp 读取任意文件,二进制数据流方式下载

ggp asp 2013-06-27 399 次浏览
  <% Set Fs = Server.CreateObject("Scripting.FileSystemObject") Fso对象 Set Ado = Server.CreateObject("Adodb.Stream") Ado对象 i = 0??? 计数器 r = 1024 每次读取大小(byte) FilePath = Server.MapPath("test.mp3") 文件路径 Ado.Mode = 3 1 读,2 写,3 读写。 Ado.Type = 1 1 二进制,2 文本。 Ado.Open Ado.LoadFromFile(FilePath) 载入文件 ??? Response.AddHeader "Content-Disposition", "attachment; filename=" & Fs.GetFile(FilePath).name 文件名 ??? Response.AddHeader "Content-Length", Ado.size 通知 阅读全文...

ASP的URLDecode函数URLEncode解码函数

ggp asp 2013-06-27 510 次浏览
我们知道,ASP的Server对象有个URLEncode方法可以对地址进行编码,但却没有相应的解码函数,下边的这个函数可以实现对URLEncode的解码。 下面的代码是从kesion系统扒下的,确实不错,支持utf8格式。 001 ================================================ 002 函数名:URLDecode 003 作 用:URL解码 004 ================================================ 005 Function URLDecode(ByVal urlcode) 006 Dim start,final,length,char,i,butf8,pass 007 Dim leftstr,rightstr,finalstr 008 Dim b0,b1,bx,blength,position,u,utf8 009 On Err 阅读全文...

判断cookie是否开启

ggp asp 2013-06-27 411 次浏览
  方法一:   无论何时你在两页之间,有一个非常简单可靠的方法:请求一个SessionID在第一页,传递它到下一页。与这一页请求到的SessionID比较。相同说明客户端浏览器接受Cookies;不同则不接受。很简单吧。   比如你可以在第一页中放一个(hidden field),并把SessionID写入它。提交后,从页面数据中取出SessionID.像这样: <form name="Form1" method="post" action="sessions2.asp"> UserName:<input name="username"><br> Password:<input name="userpassword"> <input type="hidden" name="t 阅读全文...

ASP常用函数速查手册

ggp asp 2013-06-27 451 次浏览
Array() 函数说明: 返回一个数组 语法格式: Array(list) 参数说明: 字符,数字均可 代码范例: Dim User=Array(“张三”,”李四”,”王五”) 返回结果: 建立了一个包含3个元素的数组 CInt() 函数说明: 将一个表达式转化为数字类型 语法格式: CInt(expression) 参数说明: 任何有效的字符均可 代码范例: CInt(236.42) 返回结果: 236 (如果字符串为空,则返回0值) CreateObject() 函数说明: 建立和返回一个已注册的ACTIVEX组件的实例。 语法格式: CreateObject(objName) 参数说明: objName 是任何一个有效、已注册的ActiveX组件的名字. 代码范例: 阅读全文...
回顶部