- 博客(7)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 将一列值拆分成两列，并插入到新表中
已有表tt1,表中数据为：tt1913214718202747122981926406016403234476939375473256025427480189140511709643936412265509032309425987106029772718506902948表tt2，结构为：id1 varchar(10)id2 varchar(10)现要将表tt1中字段tt1
2006-07-21 11:32:00
2541
转载 对联式网页滚动代码
将下面这段脚本放到页面中：self.onError=null;currentX = currentY = 0; whichIt = null; lastScrollX = 0; lastScrollY = 0;NS = (document.layers) ? 1 : 0;IE = (document.all) ? 1: 0;function heartBeat() { if(IE) {
2006-07-21 10:11:00
1770
原创 判断中英文结合的字段串长度的小函数
Function Strlen(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) 255 then y = y + 2 else y = y + 1 end if next
2006-07-07 15:05:00
925
转载 读某目录下所有图片的宽度和高度
读某目录下所有图片的宽度和高度Dim Conn,ConnStr,Rs,Sql,MyStreamConnStr="DBQ=" + Server.Mappath("数据库.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"Set Conn = Server.CreateObject("Adodb.Connection")Conn.Ope
2006-07-07 13:43:00
954
转载 把存储在数据库的图片导入到一个文件夹
把存储在数据库的图片导入到一个文件夹Dim Conn,ConnStr,Rs,Sql,MyStreamConnStr="DBQ=" + Server.Mappath("数据库.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"Set Conn = Server.CreateObject("Adodb.Connection")Conn.
2006-07-07 13:42:00
1316
转载 下拉框两级连动
我这个也是在网上看到的二级连动。个人认为挺不错的。只要将下面代码修改一下就可以使用的。选择大类 Dim RecordCount,BTypeArr Rs.Open "Select TypeName,TypeID from BType",Conn,1,1 查询大类表，获取大类名和ID RecordCount=Rs.RecordCount If Re
2006-07-07 13:41:00
1164
原创 无组件文件上传
无组件文件是用网上的。我只在这里转载一下。如果禁止转载我马上删掉。上传程序是我写的。有点乱。希望各位看过用过的朋友多提意见。----------------------------------------------------------------------转发时请保留此声明信息,这段声明不并会影响你的速度!******************* 无惧上传类 V1.0 *
2006-07-05 10:05:00
2824
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人