在asp数组定义中,可以直接定义,也可以使用Array函数定义..
先看用Array()函数定义例子:
<%
dim MyArray
MyArray=Array("天涯风云","小小程序员")
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
直接定义:
<%
dim MyArray(2)
MyArray(0)="天涯风云"
MyArray(1)="小小程序员"
%>
<p><%=MyArray(1)%></p>
返回结果:小小程序员
二维数组的定义;
’;yyh.asp
<%
dim MyArray(2,2)
MyArray(1,1)="天涯风云"
MyArray(1,2)="小小程序员"
MyArray(2,1)="小小小程序员"
MyArray(2,2)="天天涯风云"
%>
<p><%=MyArray(2,1)%></p>
返回结果:小小小程序员
动态数组
dim arr()
redim arr(2)
redim arr(4)重新定义一个数组，以前的值都不保留
redim preserve arr(5)保留以前的值
可以使用变量传递数组长度.
abc=34
redim thearr(abc)
例子:
<%
dim myarr()
redim a(4)
a(0)="天涯风云"
a(1)="风云天涯"
a(2)="小小程序员"
a(3)="程序员小小"
redim preserve a(8) ’;保留原数组的值.
a(4)="程序� ......
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
response.write "<mce:script language='javascript'><!--
"
response.write "alert('网站安全提示：请不要在参数中包含非法字符！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "
// --></mce:script>"
response.end
end if
next
next
end if
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then
response.write "<mce:script language='javascript'><!--
"
response.write "alert('网站安全提示：请不要在参数中包含非法字符！');"
response.write "location.href='javascript:history.go(-1)';"
res ......
漏洞描述:
在login.asp中，接收用户输入的Userid和Password数据，并分别赋值给user和pwd，然后再用sql="select * from admin where username="&user&" and password="&pwd&"" 这句来对用户名和密码加以验证。
以常理来考虑的话，这是个很完整的程序了。而在实际的使用过程中，整套程序也的确可能正常使用。
但是如果Userid的值和password的值被赋于：safer’ or’1’=’1’ 这时，sql="select * from admin where username="&user&" and password="&pwd&"" 就成了：
sql="select * from reg where user=safer’ or’1’=’1’ and pass=safer’ or’1’=’1’
怎么样？！我不说大家也明白了吧！
既然有这样的问题，接下来我们就来看看如何解决它。从上面的程序中各位也可以看出，只要对用户输入的数据进行严格过滤就可以了。具体可以参下面的程序：
Quote
〈%
user=request.from("UserID")
pass=re ......
<%
'购物车类 类名：UserCart
'作者:gameing
'基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格.
'1、2008-11-25修改Function AddItem() by tommy 商品增加在最后
'2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem()
'3、2008-11-25转换一些数据类型才能运算
'==========================
Class UserCart
'建立购物车
Sub CreateCart()
Dim CFlag
dim mCart(6,0)
CFlag=CheckCart()
if CFlag=false then
For iCount =LBound(mCart,2) to UBound(mCart,2)
mCart(0,iCount)=""
next
Session("UserCart")=mCart
end if
End Sub
'检查购物车
Public Function CheckCart()
IF IsArray(Session("UserCart")) THEN
CheckCart = true
ELSE
CheckCart = false
END IF
End Function
'检查购物车是否为空
Function CheckEmtpy()
dim mCart
mCart=Session("UserCart")
Fo ......
<script language="JavaScript">
function reloadcode(){
var verify=document.getElementById('safecode');
verify.setAttribute('src','images/chknumber.asp?'+Math.random());
//这里必须加入随机数不然地址相同我发重新加载
}
</script>
<img src="images/chknumber.asp" id="safecode" border="0" onclick="reloadcode()" style="cursor:hand;padding:2px 8px 0pt 3px;" />
转载地址：http://www.itwis.com/html/programme/javascript/20080416/1296.html
......
WebService服务端开发
1、创建WebService工程，选择XFire Core库
2、创建业务接口和其实现类（完成业务方法的定义和实现）
3、修改配置文件service.xml
4、如果需要使用WSDL，则需要导入xalan.jar文件至WEB-INF/lib中
5、导出接口至jar包中为客户端做准备
WebService客户端开发
1、创建Web工程，添加构建路径，选择XFire Core库和XFire Http Client库
2、导入服务端提供的jar包（即上述服务端开发步骤中第五步导出的jar）
3、完成WebService远程调用
3.1 创建Service模型
3.2 定义WebService的URL
3.3 创建XFire对象
3.4 通过XFire对象创建XFire代理工厂对象
3.5 通过XFire代理工厂对象，传递Servcie模型和Servcie的地址，构建业务对象实例（注意做强制类型转换）
3.6 调用业务对象的业务方法，完成业务处理
3.7 继续后续操作 ......
最新文章 : asp