2010年05月_tourstar

12月 11月 09月 08月 07月 06月 05月

原创强制浏览器重新访问服务器下载页面

强制浏览器重新访问服务器下载页面，而不是从缓存读取页面Response.Buffer = TrueResponse.Expires = -1Response.ExpiresAbsolute = Now() - 1Response.Expires = 0Response.CacheControl = "no-cache"if session("Cnname")="" or session

2010-05-16 19:50:00 683

原创 md5加密算法

Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftB

2010-05-16 19:48:00 239

原创 For遍历出列表信息

dim menuid3 set rs=server.createobject("adodb.recordset") rs.open "select menuId from menus where menuname=政策法规",conn,1,1 if not rs.eof then for i=1 to rs.recordcount if i=

2010-05-16 19:45:00 563

原创半角全角转换

Function DBC2SBC(Str, flag) rem 全角半角转换函数 rem flag=-1时进行半角转全角 rem flag=0时进行半角全角互转 rem flag=1时进行全角转半角 Dim i, sStr If Len(Str)DBC2SBC = "" For i = 1 To Len(Str) sStr = Asc(Mid(Str, i, 1)) Select Ca

2010-05-16 12:43:00 398

原创 iframe引用控件

&strFileName=&strPath=UpLoadFiles/&strField=c">

2010-05-16 12:38:00 398

原创数据的查询、模糊查询、新建、修改、删除

dim sqluserName = Trim(Request("Cnname")) 用户名m_name = Trim(Request("m_name")) 姓名sql ="select * from v_CRM_User where UserTypeName=超级管理员"set rs=server.createobject("adodb.recordset")if use

2010-05-16 12:14:00 514

原创连接数据库详细版

Server.ScriptTimeout=9999session.Timeout=999Dim Database_Conn,Database_Path,conndbtypeconndbtype="1" Dim ConnSet Conn = Server.CreateObject("Adodb.Connection")If conndbtype="1" Then Database_Path =

2010-05-16 12:08:00 421

StepStepStepStepStep

StepStepStepStepStepStepStepStepStepStepStepStepStepStepStepStepStepStepStepStep

2011-04-08

用C#读写Excel

微软的Excel对象模型包括了128个不同的对象，从矩形，文本框等简单的对象到透视表，图表等复杂的对象．下面我们简单介绍一下其中最重要，也是用得最多的四个对象。

2010-09-25

Eclipse使用方法(详细操作)

用Eclipse开发Java程序,课堂上提供的安装包是 eclipse-SDK-3.0.1-win32.zip

2010-09-17

空空如也

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

TA关注的人