ASP实现智能搜索实现代码
% FunctionAutoKey(strKey) ConstlngSubKey=2 lngLenKey=Len(strKey) SelectCaselngLenKey Case0'若为空串,转到出错页 Response.Redirect"Error.htm" Case1'若长度为1,则不设任何值 strNew1="" strNew2="" CaseElse'若长度大于1,则...
% FunctionAutoKey(strKey) ConstlngSubKey=2 lngLenKey=Len(strKey) SelectCaselngLenKey Case0'若为空串,转到出错页 Response.Redirect"Error.htm" Case1'若长度为1,则不设任何值 strNew1="" strNew2="" CaseElse'若长度大于1,则...
asp利用fso实现文件的移动 functionmovefiles(sFolder,dFolder) onerrorresumenext dimfso setfso=server.createobject("scripting.filesystemobject") iffso.folderexists(server.mappath(sFolder))andfso.folderexists(server.mappath(dFolder))the...
经过大鸟哥的指导已做全面的修改,本人能力有限只能做到下面这步了: ASP/VisualBasic代码 复制代码 代码如下: % Constp=6'每页2条 setrs=server.createobject("adodb.recordset") sql="Select*fromshoworderbyi...
比如:SetConnobject=nothing nothing如同英文单词字面意思,没有,没有那个,没有这个,没有东西 SetConnobject=nothing意思是指使对象Connobject变没有,就是清空对象了。...
!--注册模块--default.asp 复制代码 代码如下: !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 titleAjax - Sample...
首先在asp文件中写如%execute request("value")%代码 如果想要隐藏,就要加入一些if判断语句,即可 然后在本地写个表单 复制代码 代码如下: form action=http://***.com/jb51.asp method=post textarea name=v...
asp字符串截取函数 '********************************************************* '函数:cutStr[str(strlen)] '参数:str,待处理的字符串,strlen,截取的长度 '作者:木木 '日期:2007/7/12 '描述:截取指定长度的...
edit_rs_cmd.CommandText="SELECT*FROMdbo.usertableWHEREid=?" 这时候要把不能显示的字段,在放到sql中,显示出来 edit_rs_cmd.CommandText="SELECT*,[不能显示的字段],[不能显示的字段],FROMdbo.usertableWHEREid=?" 后来又...