本文的创造性在于cookies_to_array(c) 直接简单快捷转化字符串为数组的方法
另外 本文操作的数组 不是 asp普通的多维数组 而是锯齿型的
这种数组 更易操作 更易阅读 行列清晰 很像数据库中的表
可以类比为 datatable
class myarray
'必须为锯齿数组array(array(1,2,3))
function array_to_cookies(a)
dim b(),i,j,u
u = ubound(a)
redim b(u)
for i=0 to u
array_rep a(i)
b(i)=join(a(i),",")
next
array_to_cookies=join(b,";")
end function
sub array_rep(a)
dim i
if isarray(a) then
for i=0 to ubound(a)
if instr(a(i),",")>0 then a(i)=replace(a(i),",","")
if instr(a(i),";")>0 then a(i)=replace(a(i),";","")
next
end if
end sub
function cookies_to_array(c)
c = "array(array("+replace(c,";","),array(")+"))"
execute "cookies_to_array="&c
end function
'以某列为主键 添加或者更新 行
sub add_row(a,ai,columnum)
dim b(),i,j,u
......
ASP与数据库应用(给初学者)
--------------------
见最近许多网友询问一些关于数据库操作的基础问题，现把我以前写的一篇简单教程贴上来，好让一些初学者最快的入门：
ASP与数据库应用（给初学者）
一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便的查询和更新。数据库有很多种，如：Fox 数据库(.dbf)、Access 数据库(.mdb)、Informix、Oracle 和 SQL Server 等等，在这里，我将以 Microsoft Access 数据库为例来说明ASP是如何访问数据库的。
常用数据库语句
1.Select 语句：命令数据库引擎从数据库里返回信息，作为一组记录。
2.Insert INTO 语句：添加一个或多个记录至一个表。
3.Update 语句：创建更新查询来改变基于特定准则的指定表中的字段值。
4.Delete 语句：创建一个删除查询把记录从 from 子句列出并符合 Where 子句的一个或更多的表中清除。
5.EXECUTE 语句：用于激活 PROCEDURE（过程）
用 ASP 来做一个自己的通讯录练练手吧……
一、建立数据库：
用 Microsoft Access 建立一个名为 data.mdb 的空数据库，� ......
这几天因为网站涉及到二极域名共用session的问题，头痛。在网上找了好久的料，终于在csdn里面找到2004年前辈们讨论的解决方案，个人感觉很
受用。
楼主
yufeiyxl（与
飞）
我要向各位请教的是Cookie的跨域访问问题。
问题是这样的：
我
有一个网站，它有多个频道构成（比如说三个），他们共享一个数据库，这三个频道都提供登录功能，只要在其中的一个频道登录了，就直接可以进入其他频道，无
需再登录。
我看了几篇文章，还是没搞懂，希望各位高人，给与我帮助，解决之后立即给分。我先谢谢各位了。
5 楼
net_lover（【孟子E章】）
跨越域的Cookie
日期：2003-1-8 10:12:34
作者：赵金东
所有的网站开发者都会非常喜欢cookie的强大特性和易用性，它在跟踪用户信息，建设人性化、个� ......
放入conn.asp中(拒绝攻击 万能Asp防注入代码)
放入conn.asp中(拒绝攻击 万能Asp防注入代码)
第一种：
squery=lcase(Request.ServerVariables("QUERY_STRING"))
sURL=lcase(Request.ServerVariables("HTTP_HOST"))
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
For SQL_Data=0 To Ubound(SQL_inj)
if instr(squery&sURL,Sql_Inj(Sql_DATA))>0 Then
Response.Write "SQL防注入系统"
Response.end
end if
next
第二种：
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
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 "SQL通用 ......
蓝牙坏掉了，这样一来 手机安装程序变得很不方便了。一开始是先把要安装的程序以附件的形式发到邮箱 再在手机上配置邮箱 让后下载附件安装，这样虽然解决了问题 但是还是有很多不方便的地方。 于是 自己想搭建一个服务器 直接实现在线安装。前提是手机支持wifi，就是说需要手机访问内网地址，否则得话 就比较麻烦了 你的主机必须要在外网上能被访问到。
上网搜索资料，准备使用iis，但是我的系统没有安装iis 再找也比较麻烦了 而且觉得配置也比较麻烦 。所以在网上找了一个简易的asp服务器软件 AWS（asp web server）。是一个很傻瓜的软件，适合我们这种非专业人士的一些简单的需求。
在pc的任意位置 建立一个文件夹 用作你的asp根目录。然后把这个aws放到里面 绿色的 不用安装。然后在根目录下创建一个asp页面文件 我的是index.asp,貌似好多默认的都是这个名字。
然后编辑该页面 我也不懂制作网页 就在网页里写了一句
<a href="/YourSoftWare.sisx">DownLoadSis</a>表示一个连接 。YourSoftWare.sisx（同理jar 什么的都类似吧） 是你准备安装的软件 放在和index.asp同级的目录下就OK了。打开aws，他会自动打开index.asp页 ......
<%@ Language=VBScript %>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub button2_onclick
fo1.TEXTAREA1.style.fontFamily=select1.value
End Sub
Sub button3_onclick
fo1.TEXTAREA1.style.fontSize=select2.value
End Sub
Sub button4_onclick
if button4.value="Bold" then
button4.value="Un Bold"
fo1.TEXTAREA1.style.fontWeight="Bold"
else
button4.value="Bold"
fo1.TEXTAREA1.style.fontWeight="normal"
end if
End Sub
Sub button5_onclick
if button5.value="Italics" then
button5.value="Un Italics"
fo1.TEXTAREA1.style.fontstyle="italic"
else
button5.value="Italics"
fo1.TEXTAREA1.style.fontstyle="normal"
end if
End Sub
Sub ......
最新文章 : asp