自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(9)
  • 收藏
  • 关注

原创 js操作数据库

script language="javascript" runat="server"> var conn=new ActiveXObject("ADODB.Connection");conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("data.mdb");conn.Open

2007-04-30 14:40:00 1441

原创 去除重复记录,只留1条记录的SQL语句。

Select * From [Product] Where id In (select max(id) from [Product] group by sort_id)前提条件是id在这张表[Product]里是主键 ,sort_id列里重复.

2007-04-27 15:00:00 1161

原创 ASP版的柱状图

%Function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)参数含义(传递的数组,横坐标,纵坐标,柱子的厚度,柱子的宽度,图表的宽度,图表的高度,图表的类型)纯ASP代码生成图表函数1——柱状图作者:龚鸣(Passwordgm) QQ:25968152 MSN:p

2007-04-10 14:59:00 2460

原创 js版本的全选与反选

script type="text/javascript">... function SelectAll() ...{   if (document.all.selectAll.checked==true)   ...{     for(var i = 0; i  document.all.receivers.length; i++)     ...{       document.all.r

2007-04-10 14:53:00 738

原创 用CDO组件发送邮件

%    Function fCdoForm(mFrom, mTo, mSubject, mBody, mSmtp, mPort, mTimeout, mUser, mPwd, mAuth, mSend)       Dim msg,iConf      Set msg = Server.CreateObject("CDO.Message")      -------------------

2007-04-10 14:47:00 2509

原创 js客户端脚本二级联动下拉菜单

var city1 = ["少儿保险","健康医疗","养老保险","投资分红","意外保险","保障保险","女性保险"];var city2 = ["商业机动车辆保险","交通事故责任强制保险"];var city3 = ["团体养老保险","团体医疗健康","团体意外伤害","团体年金","团体普通寿险"];var city4 = ["财产险","货物运输保险","运输工具保险","农业

2007-04-10 14:43:00 1679

原创 asp读取文本文件

... Option Explicit %>DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">html xmlns="http://www.w3.org/1999/xhtml">head>meta http-

2007-04-10 14:37:00 1238

原创 ASP分页代码

 %Dim rs,sql,i,page,pagesize1,total,pgcountSet rs = Server.CreateObject("ADODB.Recordset")sql = "select * from [TableName] order by id desc"rs.Open sql,conn,3,1i = 1page = Request("page")pagesize1

2007-04-10 14:28:00 819

原创 二级联动下拉菜单(js+DB)

var onecount;subcat = new Array();Dim countSet rs = Server.CreateObject("ADODB.Recordset")sql = "select * from [smallclass]"rs.Open sql,conn,1,1count = 0Do While Not rs.EOF  Response.Write("subcat["&c

2007-04-10 11:50:00 1802

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除