xmlhttp 与 cookie
[ 2008-04-22 13:19:27 | 作者: admin ]
Dim logxml, idpw, postxml, info, cookie
idpw="id=abc&pw=pass"
Set logxml = Server.CreateObject("Microsoft.XMLHTTP")
logxml.Open "POST", "http://myserver/login", False
logxml.Send idpw
cookie = logxml.getResponseHeader("Set-Cookie")
'info="title=hello&content=world"
Set postxml = Server.CreateObject("Microsoft.XMLHTTP")
postxml.Open "POST", "http://myserver/post", False
postxml.setRequestHeader("Cookie",cookie)
...
阅读全文…
idpw="id=abc&pw=pass"
Set logxml = Server.CreateObject("Microsoft.XMLHTTP")
logxml.Open "POST", "http://myserver/login", False
logxml.Send idpw
cookie = logxml.getResponseHeader("Set-Cookie")
'info="title=hello&content=world"
Set postxml = Server.CreateObject("Microsoft.XMLHTTP")
postxml.Open "POST", "http://myserver/post", False
postxml.setRequestHeader("Cookie",cookie)
...
阅读全文…
sql语句中关于top似乎失效的问题
[ 2008-04-16 17:09:22 | 作者: admin ]
举个例子
如果要保证结果的正确,可以在排序的时候添加唯一性的字段,如时间字段或自动编号的字段
SELECT top 10 * FROM news where sex='男' order by hits desc
当hits有重复的情况下,返回的记录可能就不只10条,因为系统无法知道该做怎么样一个取舍,所以它会把满足条件的全部给你列出来如果要保证结果的正确,可以在排序的时候添加唯一性的字段,如时间字段或自动编号的字段
SELECT top 10 * FROM news where sex='男' order by hits desc,id desc
纯真ip数据库转动网ip数据库方法
[ 2008-04-06 10:44:39 | 作者: admin ]
p.s. 今天想更新一个网站带的ip数据库,发现用的是ip转成数字的模仿动网模式判断方法。网上查了下,好像纯真的更新比较勤劳,就下载下来自己转吧。
一、下载纯真ip数据库,用自带的工具解压导出到文本格式(可以用EditPlus查看)
二、在access中导入该文本格式的ip地址,并确保mdb数据库和表名同为ipaddress,字段名分别为: id,ip1,ip2,country,city
三、使用下面的asp程序将ip1和ip2的ip字符串转成数字,转完了将ip1和ip2字段改为双精
<%
Server.ScriptTimeOut=999
totalRecords = 346071 'ip记录的总数,这里手工设置下
pagesize = 10000 '每页更新的纪录数
maxPage = clng((totalRecords-1)/pageSize)+1...
阅读全文…
一、下载纯真ip数据库,用自带的工具解压导出到文本格式(可以用EditPlus查看)
二、在access中导入该文本格式的ip地址,并确保mdb数据库和表名同为ipaddress,字段名分别为: id,ip1,ip2,country,city
三、使用下面的asp程序将ip1和ip2的ip字符串转成数字,转完了将ip1和ip2字段改为双精
<%
Server.ScriptTimeOut=999
totalRecords = 346071 'ip记录的总数,这里手工设置下
pagesize = 10000 '每页更新的纪录数
maxPage = clng((totalRecords-1)/pageSize)+1
阅读全文…
Microsoft JET Database Engine 错误 80004005 未指定的错误
[ 2008-01-23 11:02:33 | 作者: admin ]
Microsoft JET Database Engine 错误 ‘80004005’ 未指定的错误 解决方案
C:\windows\temp目录 ,USERS 组添加写入权限即可
另外存放access数据库的目录也需要写权限
C:\windows\temp目录 ,USERS 组添加写入权限即可
另外存放access数据库的目录也需要写权限
asp保留2位小数函数
[ 2008-01-03 08:09:16 | 作者: admin ]
formatnumber(12.123456,2)
asp vbscript 字符数len 和字节数lenb
[ 2007-11-07 10:10:18 | 作者: admin ]
字符数:
Len("1234") = 4 ----------->打印时占4
len("中国人民") = 4 ----------->打印时占8
Len("中国12") = 4 ----------->打印时占6
字节数:(由于vb的unicode,占2字节)
lenB("1234") = 8 ----------->打印时占4
lenB("中国人民") = 8 ----------->打印时占8
lenb("中国12") = 8 ----------->打印时占6
Len("1234") = 4 ----------->打印时占4
len("中国人民") = 4 ----------->打印时占8
Len("中国12") = 4 ----------->打印时占6
字节数:(由于vb的unicode,占2字节)
lenB("1234") = 8 ----------->打印时占4
lenB("中国人民") = 8 ----------->打印时占8
lenb("中国12") = 8 ----------->打印时占6
recordset的再次过滤
[ 2007-10-06 17:32:32 | 作者: admin ]
find是方法。在rs里查找符合条件的记录。只能是一个条件 。
filter是属性,用了它之后,rs里剩下的符合条件的记录,可以是多个条件。
filter是属性,用了它之后,rs里剩下的符合条件的记录,可以是多个条件。
asp下ado.recordset(rs) 读取后sort再排序的问题
[ 2007-10-06 13:13:24 | 作者: admin ]
p.s. 本来想直接用rs.sort来再排序,但脱离连接的rs不能更新,只好放弃自建rs而改用数组
下面的演示是需要数据库同步更新,所以不支持并发操作,纯粹是演示说明...
阅读全文…
下面的演示是需要数据库同步更新,所以不支持并发操作,纯粹是演示说明
引用
sql = " delete from temp1 "
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
阅读全文…