您正在查看 "Asp" 分类下的文章 2010-04-19 16:09 Function URLDecode_GBToGB(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
|
2010-04-13 11:56 ASP版
<%
Sub GetOSType(ByRef System,ByRef Browser)
Dim thesoft
'取操作系统类型
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
response.write thesoft
if instr(thesoft,"Windows NT 5.0") then
System="Windows 2000"
elseif instr(thesoft,"Windows NT 5.1") then
System="Windows XP"
|
2010-03-19 14:35 conf.asp
'*****************************
'ASP Page v1.0
'Code by westfruit at 2010.3.19
'Support by westfruit@163.com
'*****************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
Response.CodePage=65001
Response.Charset="UTF-8"
Const DBSERVER1 = "192.168.1.243"
Const D |
2009-12-11 10:11 以前只会在脚本里面用，今天在程序里面也用了一会，下面是代码，请大家不要客气。
dim patrn139,phoneStr
patrn139="^1(3[4-9]|4[7]|5[0-2|7-9]|8[7-8])[0-9]{8}$" '移动手机号验证正则
phoneStr="13631628737" '我的手机号
if not ChkReg(patrn139,phoneStr) then
response.write ("您输入的不是中国移动手机号！")
end if
' =============================================
' 正则验证函数 Patrn:正则表达式 strvalue:要验 |
2009-12-01 13:43 Set objXML = CreateObject("Msxml2.XMLHTTP") 或
Set objXML = CreateObject("Microsoft.XMLHTTP")
'Or for version 3.0 of XMLHTTP, use:
'Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
对象创建后调用Open方法对Request对象进行初始化，语法格式为：
objXML.open http-method,url,async,userID,password
Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示：
http-method |
2009-11-13 8:26
1 新建类库MyTestDLL
2 右击项目“MyTestDLL”-》属性-》生成-》勾选“为COM互操作注册”
3 打开 AssemblyInfo.cs 文件 修改 [assembly: ComVisible(true)]
4 打开Visual Sutdio 2008 的命令提示行工具输入guidgen.exe 选择DEFINE_GUID 单击 "New GUID"
5代码
1、每个类名对应一个接口名，接口名是类名前加上一个大写的I
2、接口中声明的方法要使用属性 [DispId(n)]
3、类必须有一个无参构造函数
|
2009-10-13 9:23
****************
wlyxxzdm
****************
继续简单的入门学习。
一、asp输出xml的写法
''''''''''''''''''''''''''''''''''''
建立一个文件，名称：asp-xml.asp
'''''''''''''''''''''''''''''''''''''
| |
2009-10-10 11:11 一、数据库远程管理技术
基于互联网的广域网现代应用中的一个重要环节是数据库远程监控。首先简单回顾一下互联网上的数据库远程管理技术的发展过程和方式：
早期通过编写CGI-BIN程序模块进行数据库远程管理。但CGI-BIN的运行速度慢，维护很不方便，现在已经基本被弃用。
这几年使用组件对象模型(Component Object Model, COM)的应用非常多，效果也很好。但如果使用的是第三方服务器(笔者的网站就是建立在第三方的虚拟主机上)，服务器方往往因为保密或其它商业原因不允许用户注册自己的组件。
|
2009-10-10 11:00 <%
Function checkMobileProvice(mobileNo)
'clientId 商户ID
'mobileNo 手机号码
Response.Charset = "utf-8"
Dim clientId ,strResult
clientId="520011"
Dim strURL ,strData ,objXmlHttp ,json ,proviceCode
strURL = "http://123.124.172.103:9080/cbp/profile/findProv |
2009-09-27 10:17 1.XML
===========================================================================
<?xml version="1.0" encoding="gb2312"?>
<data>
<tomcat>
<ID>1</ID>
<username>张辉</username>
<password>123456</password>
</tomcat>
</data>
============================================================================
aspXML.asp
=========================================== |
| | |
