asp文档中心

          HTML部分：
        <asp:Chart ID="ChartBar" runat="server" Width="800px"   BackColor="#FFFFCC" Palette="BrightPastel" BorderWidth = "2" BorderColor = "#cc9900" >
         <Legends>
                <asp:Legend IsTextAutoFit="False" Name="Default" BackColor="Transparent" Font="Trebuchet MS, 8.25pt, style=Bold">
                </asp:Legend>
            </Legends>
            <ChartAreas>
                <asp:ChartArea Name="ChartArea1">
      ......

<%
'true=是邮件;false=不是;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'********************************************
'函数名：IsValidEmail
'作用：检查Email地址合法性
'参数：email ----要检查的Email地址
'返回值：True ----Email地址合法
' False ----Email地址不合法
'********************************************
function IsValidEmail(email)
dim names, name, i, c
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
......

COM接口VC实现,接口:
[id(1), helpstring("method Test")] HRESULT Test([in] BSTR strInputA, [in] BSTR strInputB, [out,retval] VARIANT* result);
ASP调用：
Set objCompInfo =server.CreateObject("组件在系统中的名字")
result=objCompInfo.Test(arrIn,arrout)
"组件在系统中的名字" 该值在VC项目中的rgs文件中可以找到 ......

要实现在asp网站上发送飞信，要求是中国移动的手机用户，并且开通移动飞信功能。
     使用以下asp代码，修改参数为你的手机号及飞信密码，就可以实现在网站发免费短信功能。

fsend.asp文件源代码如下：
<%
    Dim fno,fp,tofno,rurl
    fno="138xxxxxxxx"    '手机号
    fp="xxxxxxxx"       '飞信密码
    tofno="137xxxxxxxx" '发送目标手机号(要求是自己的号码或飞信好友)
    rurl=""              '提交后转移到的目标地址(留空将不转移)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>请留下你的联系信息</title>
</head>
<body style="font-size: 10pt; font-family: 宋体">
<%if (Request("msg")="") then%>
   <form method="POST" action="fsend.asp">
......

ASP调用存储过程的方法：

---- 　　调用存储过程的方法需要使用ADO的Command对象。Command对象是对一个数据源运行特定命令的定义（例如，一个SQL查询或一个SQL存储过程）。下面以MS SQL SERVER6.5为后台数据库，介绍ASP调用存储过程的方法。

---- 　　例如，在表User中保存了用户名和密码。现在建立一个检查密码的存储过程sp_CheckPass来检查用户是否输入了合法的密码。建立存储过程，可以从Microsoft SQL Sever程序组中启动ISQL/w。然后，在查询窗口中输入存储过程：

/*存储过程例程*/
CREATE PROCEDURE sp_CheckPass

@CHKName VARCHAR(30),@CHKPass VARCHAR(30),
@ISValid CHAR(8) OUTPUT　　
AS

IF EXISTS(SELECT UserName from Users

WHERE UserName=@CHKName AND UserPwd=@CHKPass)

SELECT @ISVaid="pass"

ELSE

SELECT @ISValid="In ......

文件名：Awa_temp.Class.asp
<%
'Crazy蛙!模板操作类
'作者Crazy~蛙! QQ:379969387 欢迎交流
'版本V1.0;
Class AwaTemp
Public aa
Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'构造函数_初始化FSO组件
'===========================================
Private Sub Class_Initialize()
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
End Sub
'===========================================
'构析函数_销毁FSO组件
'===========================================
Private Sub Class_terminate()
Set FSO=nothing
End Sub
'===========================================
'类属性
'===========================================
'版本信息
Public Property Get Version
Version="Crazy~蛙! 模板操作类!V1.0版本;"
End Property
'获取模板地址以及名称
Public Property Let Temp(ByVal Values)
StrTemp=Values
End Property
'获取生成文件的文件名
Public Property Let HtmlName(ByVal Val ......

asp:chart 控件画柱状图和饼图

使用ASP验证email邮箱地址

ASP中调用带参数输出的COM接口

使用ASP发送飞信的免费短信

asp调用sql server存储过程

asp调用sql server存储过程

ASP:Crazy蛙!模版操作类(最简单的模板类、仅提供交流)