浏览模式: 普通 | 列表

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)
...

阅读全文…

原创日志 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
...

阅读全文…
Microsoft JET Database Engine 错误 ‘80004005’ 未指定的错误 解决方案

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

recordset的再次过滤

[ 2007-10-06 17:32:32 | 作者: admin ]
find是方法。在rs里查找符合条件的记录。只能是一个条件 。
filter是属性,用了它之后,rs里剩下的符合条件的记录,可以是多个条件。
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
...

阅读全文…