微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!
asp数组使用
在ASP编程中使用数组 数组的定义Dim MyArrayMyArray = Array(1,5,123,12,98)可扩展数组Dim MyArray()for i = 0 to 10ReDim Preserve MyArray(i)MyArray(i)=inext将一个字符串分割并返回分割结果的数组Dim MyArrayMyArray = Split(tempcnt,chr(13)&chr(10))For I = Lbound(MyArray) to Ubound(MyArray) Response.Write MyArray(I) & "<br>"Next 数组排序函数function..Sort(ary) KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort = ary End function..数组排序函数应用例子Dim MyArray MyArray = Array(1,5,123,12,98)MyArray = Sort(MyArray) For I = Lbound(MyArray) to Ubound(MyArray) Response.Write MyArray(I) & "<br>"Next 在Application和Session中使用数组Application.LockApplication("StoredArray") = MyArrayApplication.UnlockLocalArray = Application("StoredArray")覆盖Application中的数组Application.LockApplication("StoredArray") = LocalArrayApplication.UnlockSession使用方法与Application相同从数据库中把数据导入数组中Dim MyArray取出全部记录MyArray = RS.GetRows取出前10项记录MyArray = RS.GetRows(10)For row = 0 To UBound(MyArray, 2)For col = 0 To UBound(MyArray, 1)Response.Write (col, row) & "<br>"NextNext
存储过程介绍和它在asp中的使用
 一、先介绍一下什么是存储过程存储过程是利用SQL Server所提供的Tranact-SQL语言所编写的程序。Tranact-SQL语言是SQL Server提供专为设计数据库应用程序的语言,它是应用程序和SQL Server数据库间的主要程序式设计界面。它好比Oracle数据库系统中的Pro-SQL和Informix的数据库系统能够中的Informix-4GL语言一样。这类语言主要提供以下功能,让用户可以设计出符合引用需求的程序:1)、变量说明2)、ANSI兼容的SQL命令(如Select,Update….)3)、一般流程控制命令(if…else…、while….)4)、内部函数二、存储过程的书写格CREATE PROCEDURE [拥有者.]存储过程名[;程序编号][(参数#1,…参数#1024)][WITH{RECOMPILE | ENCRYPTION | RECOMPILE, ENCRYPTION}][FOR REPLICATION]AS 程序行其中存储过程名不能超过128个字。每个存储过程中最多设定1024个参数(SQL Server 7.0以上版本),参数的使用方法如下:@参数名 数据类型 [VARYING] [=内定值] [OUTPUT]每个参数名前要有一个“@”符号,每一个存储过程的参数仅为该程序内部使用,参数的类型除了IMAGE外,其他SQL Server所支持的数据类型都可使用。[=内定值]相当于我们在建立数据库时设定一个字段的默认值,这里是为这个参数设定默认值。[OUTPUT]是用来指定该参数是既有输入又有输出值的,也就是在调用了这个存储过程时,如果所指定的参数值是我们需要输入的参数,同时也需要在结果中输出的,则该项必须为OUTPUT,而如果只是做输出参数用,可以用CURSOR,同时在使用该参数时,必须指定VARYING和OUTPUT这两个语句。例子:CREATE PROCEDURE order_tot_amt @o_id int,@p_tot int output ASSELECT @p_tot = sum(Unitprice*Quantity)FROM orderdetailsWHERE ordered=@o_id例子说明:该例子是建立一个简单的存储过程order_tot_amt,这个存储过程根据用户输入的定单ID号码(@o_id),由定单明细表(orderdetails)中计算该定单销售总额[单价(Unitprice)*数量(Quantity)],这一金额通过@p_tot这一参数输出给调用这一存储过程的程序三、在SQL Server中执行存储过程在SQL Server的查询分析器中,输入以下代码:declare @tot_amt intexecute order_tot_amt 1,@tot_amt outputselect @tot_amt以上代码是执行order_tot_amt这一存储过程,以计算出定单编号为1的定单销售金额,我们定义@tot_amt为输出参数,用来承接我们所要的结果四、在ASP中调用存储过程<!-- 必须加载adovbs.inc文件,否则将出错 --><!--#include file="adovbs.inc"--><%dim objCnndim objCmddim Rsconst o_id=112'-----建立Connection对象----------set objCnn=Server.CreateObject("Adodb.connection")objCnn.Open "driver={sql server};server=localhost;uid=sa;pwd=cncanet;database=check;"'-----建立Command对象-----------set objCmd=Server.CreateObject("Adodb.Command")objCmd.ActiveConnection=objCnnobjCmd.CommandText="order_tot_amt" '指定存储过程名称objCmd.CommandType=adCmdStoredProc '其为Stored Procedure'-----准备stored procedure 的参数-------objCmd.Parameters.Append _objCmd.CreateParameter("o_id",adInteger,adParamInput,,o_id)objCmd.Parameters.Append _objCmd.CreateParameter("p_tot",adBigInt,adParamOutput,,0)'-----执行存储过程----------------------objCmd.Execute'-----输出参数以及处理结果--------------for each parm in objCmd.ParametersResponse.Write parm.name &"="& trim(parm) &""next%>
ASP新闻栏目切换+JS
<%dim rsdim sqldim countset rs=server.createobject("adodb.recordset")sql = "select * from kml_sclass"rs.open sql,conn,1,1%><script language = "JavaScript">var onecount;onecount=0;subcat = new Array();        <%        count = 0        do while not rs.eof        %>subcat[<%=count%>] = new Array("<%= trim(rs("sclassname"))%>","<%= trim(rs("bclassid"))%>","<%= trim(rs("sclassid"))%>");        <%        count = count + 1        rs.movenext        loop        rs.close        %>onecount=<%=count%>;function changelocation(locationid)    {    document.myform.sclassid.length = 0;    var locationid=locationid;    var i;    for (i=0;i < onecount; i++)        {            if (subcat[i][1] == locationid)            {              document.myform.sclassid.options[document.myform.sclassid.length] = new Option(subcat[i][0], subcat[i][2]);            }               }           }   </script></head><body><br><form name="myform" method="post" action="?action=addsave"><table width="80%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">  <tr bgcolor="#F6F6F6">    <td height="25" colspan="2"><div align="center"><strong>修改新闻</strong></div></td>  </tr><tr bgcolor="#F6F6F6"><td align="center" height="25">新闻样式:</td><td><input name="jibie" type="radio" value="0" checked>          中文版</td></tr>  <tr>    <td width="15%" height="25" align="right" bgcolor="#F6F6F6">文章类型:</td>    <td width="85%" bgcolor="#FFFFFF"><%    sql = "select * from kml_bclass"    rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" response.end else%><select name="bclassid" location(document.myform.bclassid.options[document.myform.bclassid.selectedIndex].value)" size="1">        <option selected value="<%=trim(rs("bclassid"))%>"><%=trim(rs("bclassname"))%></option>        <%dim selclass         selclass=rs("bclassid")        rs.movenext        do while not rs.eof%><option value="<%=trim(rs("bclassid"))%>"><%=trim(rs("bclassname"))%></option><%rs.movenextloopend ifrs.close%>      </select>      <select name="sclassid"><%sql="select * from kml_sclass where bclassid="&selclassrs.open sql,conn,1,1if not(rs.eof and rs.bof) then%>        <option selected value="<%=rs("sclassID")%>"><%=rs("sclassname")%></option><%rs.movenextdo while not rs.eof%><option <%if RsEdit("sclassid")=rs("sclassID") then %> selected <% end if %>value="<%=rs("sclassID")%>"><%=rs("sclassname")%></option><%rs.movenextloopend if        rs.close        set rs = nothing%></select>