ASP简洁的多重查询的解决方案 代码如下:'subject 信息标题 'company 发布信息的公司名称 'content 发布信息的内容 'address 公司地址 'infomation 公司简介 'note 相关说明 以上值均由FORM提交，然后通过:subject=trim(Request.Form("subject"))等得到相应的值。 <% '这个函数很关键！--------------------------- Function sql(a,b,sqls) if b<>"" then '如果客户端没有提交此值，则不会产生相应的SQL语句。 sqls=sqls...
个人网站如有会员注册模块+动网论坛的话，那网站要与动网论坛系统整合，实现不同Web系统之间的用户信息同步更新、登录等操作就不是件容易的事了，虽然动网已提供有详细的"动网论坛系统Api接口开发人员指南"，但像我这样的菜鸟一时半会可是参详不透的，汗。不甘心，在对其登录、验证等函数进行一番研究再加以测试后最终竟也小有所成，菜鸟也有菜鸟的办法，哈哈。 一、网站文件结构 wwwroot ┝ index.asp ┝ CheckUserLogin.asp ...
1、使用isapi_rewrite进行动态链接重写html静态网址。isapi_rewrite是一个dll组件，re_write是iis里的一个模块。这个筛选器实现是通过正则表达式，将动态网页网址映射成为静态网址。如可将news.asp?id=95通过re_write将其转换成news/95.html。映射的正则表达式在httpd.ini文件里进行设置。 举个小小例：处理数据翻页，那么写法是： more_<%=page%>_<%=type%>.html （注：page是翻页页数，type是数据类型）表现形式：more_1_95.html...
一.预呈现数据无法更改 1.大家知道,预呈现的数据是无法更改的,以前可能提到过,这里再看demo,自定义一个控件 [DefaultProperty("Text")] [ToolboxData("＜{0}:JsControl runat=server＞＜/{0}:JsControl＞")] public class JsControl : WebControl { [Bindable(true)] [Category("Appearance")] [DefaultValue("")] [Localizable(true)] public string Text { get { String s = (String)ViewState["Text"]; return...
在JS中有这种用法，某个函数名可以当成参数的形式，传入到另外一个函数内部去，例如： <script type="text/javascript"> <!-- function myFuncA(str,myFuncB){ str = str + " 您好!"; str = myFuncB(str); return str; } function myFuncB(str){ str = str + "欢迎来到IECN.NET"; return str; } alert(myFuncA("张三",myFuncB)); //--> </script> 在VBScript有两种方式可以来实现，即用execute或GetRef 函数。 一、利用execut...
input域指定相同name属性，而后你requet.form来这个值是以逗号分割的字符串，分割字符串为数组，然后遍历，并执行sql语句。
<% '申明变量 Dim valName Dim arrName Dim objConn Dim connStr If Request.Form("mySubmit") = "确定" Then '数据库链接代码 set objConn=server.CreateObject("ADODB.connection") connStr = "PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;" objConn.Open connstr '取得值 valName = Cstr(Request.Form("myName")) '插入数据库 arrName = split(valName,",") arrPassword = split(valPassword,",") '执...
返回上一页，一般用在判断信息提交是否完全之后<% '****************************** '函数：GoBack() '参数：无 '作者：阿里西西 '日期：2007/7/13 '描述：返回上一页，一般用在判断信息提交是否完全之后 '示例：<%call GoBack()%> '****************************** Sub GoBack() Response.write ("<script>history.go(-1)</script>") End Sub %> 重定向到另外的链接<% '****************************** '函数：Go(url) '参数：ur...
代码如下:<%Function MoveR(Rstr) Dim i,SpStr SpStr = Split(Rstr,",") For i = 0 To Ubound(Spstr) If I = 0 then MoveR = MoveR & SpStr(i) & "," Else If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then MoveR = MoveR & SpStr(i) Elseif instr(MoveR,SpStr(i))=0 Then MoveR = MoveR & SpStr(i) & "," End If End If Next End Function response.write MoveR("abc,abc,dge,gcg,dge,gcg,die,dir,die")%> 结果是：abc,dge,g...
<% '****************************** '函数：RemoveHref_A(HTMLstr) '参数：HTMLstr，待去除链接的字符串 '作者：阿里西西 '日期：2007/7/12 '描述：去除字符串中所有的超级链接 '示例：<%=RemoveHref_A("<a href=/abc/h.html>测试</a>")%> '****************************** Function RemoveHref_A(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"<a")) str1 = Instr(HTMLstr,"<a...
发现还没有aspupload这个组件的,这两样功能的解决方案,现把我的改进方案写在这里!谢谢 关于aspupload上传组件,文件重命名,进度条的问题解决方案! 共用到4个文件,分别是1.asp,2.asp,bar.asp,framebar.asp 运行第一个文件:1.asp,执行上传操作! 代码如下:<% '''进度条 dim SPid,PID,barref Set UploadProgress = Server.CreateObject("Persits.UploadProgress") SPid = UploadProgress.CreateProgressID() PID = "PID=" & SPid b...
adodb.stream对象的方法/属性 Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumber]) 说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。 Flush 方法 ...
step 一: sql="select id from table" 结果用存在 rs=conn.execute(sql) step 二: 生成一个 step1的最大值(rs.recordcount)内的随机数字. N个 code: <%Randomize %> <% dim r(10) for i=0 to UBound(r) r(i)=int(Rnd()*100) int(Rnd()*100) %> step 三: 将数组联合 join成一个","分割的 代码如下:<%Randomize %>...
纯真ip数据库转动网数据库ASP脚本 去纯真网站上下载ip数据库，同时随数据库附送的查询程序（Showip.exe）具有在线检测并升级IP数据库的功能，只要运行该程序，点击右上角的 “在线升级”，就可以升级IP数据库到最新的版本，无需再到下载网站下载新版的IP数据库。 同时查询程序（Showip.exe）还提供了解压为.txt文件的功能:) 我们就借助这一功能实现转MDB格式的数据库。 第一步：打开查询程序（Showip.exe），点击解压 第二步：保存...
方法一：createtextfile生成文件方法 代码如下:<%function WriteToFile(FileName,FileContent) set fso=server.createobject("scripting.filesystemobject") set fp=fso.createtextfile(server.mappath(FileName),,True) fp.write(FileContent) end function%> 方法二：ADODB.Stream生成文件方法 代码如下:<%Function WriteToFile(FileName,FileContent) Set ccObjStream = Server.CreateObject("ADODB.Stream") ...