- 博客(11)
- 资源 (2)
- 收藏
- 关注
原创 最近自己用asp+ajax写的仿clickeye效果
绍:所用数据库keyword.mdb表名:content字段名:title content表名:keyword字段名:keyword sex englishname birthday star nationality文件源码:conn.asp连接数据库开始dim conn,rs,sqldbpath=server.mappath("keyword.m
2008-05-01 17:13:00 456
原创 二次插值法求函数最小值
求表达式的值Function erresult(ByVal expression As String, ByVal x As String) As Single Dim tmpStr As String tmpStr = Replace(UCase(expression), "LN", "Log") tmpStr = Replace(tmpStr,
2008-06-04 08:51:00 6103
原创 黄金分割法求函数最小值
测试表达式 x^2+2*x测试区间[-3 5]测试精度e=0.2书上最小值x=-1.0255 f=-0.999Function RESULT(ByVal expression As String, ByVal x As String) As Single Dim tmpStr As String tmpStr = Replace(UCase(expression
2008-06-04 08:50:00 3415
原创 论坛完整版ubb代码
function ChkBadWords(fString) bwords = split(BadWords, "|") for i = 0 to ubound(bwords) fString = Replace(fString, bwords(i), string(len(bwords(i)),"*")) next fString = Replace(fSt
2008-06-04 08:44:00 2960
原创 asp分页
Set rs = Server.CreateObject ("ADODB.Recordset")sql="select * from huifu "rs.open sql,conn,1,1page=1 设置变量PAGE=1rs.PageSize = 5 每页显示记录数page=Request("Page")if Not IsEmpty(page) then 如果PAGE已经初始化.
2008-06-04 08:42:00 394
原创 两个函数解决ajax乱码
ajax.htmhttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http://www.w3.org/1999/xhtml"> Ajax乱码解决 var xmlHttp; function createXMLHttpRequest() { if(window.ActiveXObject) {
2008-06-04 08:36:00 318
原创 QQ好友数据库的替换
方法:1)先将他人QQ号下文件user.db 文件剪切出来2)在自己QQ号未登陆之前将自已QQ号下文件user.db删除3)将他人user.db粘贴到自己QQ号文件夹下4)登陆自己QQ5)登陆后自己QQ里将是他人的QQ好友
2008-05-30 09:42:00 531
原创 超链接自定义协议(可以传值)
超链接自定义协议(可以传值)vb源码 Private Sub Form_Activate()Dim a() As StringDim b() As StringText1.Text = Commanda = Split(Text1.Text, "//")Print a(0), a(1)b = Split(a(1), "/")Print b(0)End Subreg.regWindows Regi
2008-05-30 09:41:00 1163
原创 ajax框架购物效果原理
文件夹:images 文件:product1.png product2.png文件夹:javascripts 文件:builder.js controls.js dragdrop.js effects.js prototype.js scriptaculous.js slider.jsindex.htmdiv{display:inline;}accepts second boxnew Dra
2008-05-30 09:38:00 411
原创 vb只运行一个程序实例
form1.caption="bofang"Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "
2008-05-30 09:16:00 963
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人