ASP获取和还原复选框的值(0～99多项选择)
在多项选择的一些应用中，可以用二进制1代表选中，0代表不选。例如给某用户角色分配权限abcdefg，选中情况是1001101，那么此角色包含四项权限，用一个变量表示，相应的十进制数是77。
但是，在ASP中的多项选择，就不适合这种以数值的形式记录选中情况。因为，当项目数很多时（例如64项，相应的二进制数达64位），就涉及大整数的运算，步骤繁杂，而且当项目数改变时，算法也要改变。
以下以字符的形式获取和还原ASP复选框的值，应用于角色分配、投票统计等领域，最多99项：
<script language="javascript">
function selectIt(){
form=document.lzyy
action=event.srcElement.name
for(var i=0; i<form.elements.length; i++){
if(form.elements[i].name=="test"){
e=form.elements[i]
e.checked=(action=="selectAll")?(form.selectAll.checked):(!e.checked)
}
}
}
</script>
<%
dim check,ch,test
check=99 '总项目数0～99
dim checked
redim checked(check) '各项的选中状态
if not request.form("action")="editselect" then %>
<form name="lzyy" action="" method="post">
<input type="checkbox" name="selectAll" value="checkbox" onClick="selectIt()"><b>全选</b>
<input type="checkbox" name="invest" value="checkbox" onClick="selectIt()"><b>反选</b>
<%
for chi=1 to check
ch="0"+cstr(chi)
ch=right(ch,2)
%>
<input type="checkbox" name="test" value="<%=ch%>">项目<%=ch%>
<%next%>
<input name="action" type="hidden" value="editselect" />
<input type="submit" name="Submit" value="选择" />
</form>
<%else%>
<BR>(还原选中情况：)<BR>
<%
test=request.form("test")
Response.Write "<br>选中之后，保存在数据库中的文本(例如01, 02, 03, 05 )：" & test & "<br>"
'循环取值/操作
'strCheck=Spli
相关文档：
方法一 : 禁用HTML
最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
或者直接禁用所有的html:
strText = Replace(strText, "<", "<")
这样做虽然很安全,但显得不够友好.(用户提交的文本会变� ......
在文章调试JavaScript/VB Script脚本程序（Wscript篇）里面，有网友问我如何调试ASP里面的脚本程序，我不知道他问得是调试ASP网页里面的VBScript ASP代码，还是ASP.NET网页里面的JavaScript/VBScript客户端代码，所以我就在这篇文章里面先将调试ASP网页里面的ASP代码这种情况都解释一下吧。
估计ASP这个玩艺用的人已经很少 ......
原文引用:
http://www.17558.net/cmd.asp?act=tb&id=16&key=43840
原文地址:http://www.17558.net/post/16.html
偶是一个底层的ASP技术人员(属于半路出家的那种,以前是一名网络技术人员),最近参与制作一个CRM系统,架够采用ASP+SQL,考虑到以后数据查询效率问题,所以在网上找了一个 Asp数据操作组件(百万级分页) , ......
在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的 IP 地址，但如果客户端是使用代理服务
器来访问，那取到的就是代理服务器的 IP 地址，而不是真正的客户端 IP 地址。要想透过代理服务器取得客户端的真实
IP 地址，就要使用& ......
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......
