本文匆匆已经全面测试，支持ASP+ACCESS以及ASP+SQL，请修改相关部分就可以了。 注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目。 <!--#include file="conn.asp"--> <% '以上为包含数据库衔接文件 '--------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.recordset") rs.open "select * from books where id="&id&" order by id desc",conn,1,1 if e...
1、将下面的文本文件下载,并将.TXT改为remote.asp,里面有具体设置方法 代码如下:<% '添加资源时是否保存远程图片 Const sSaveFileSelect=True '远程图片保存目录,结尾请不要加“/” Const sSaveFilePath="/images/News" '远程图片保存类型 Const sFileExt="jpg|gif|bmp|png" '///////////////////////////////////////////////////// '作 用：替换字符串中的远程文件为本地文件并保存远程文件 '参 数： ' sHTML : 要替...
代码如下:Function makegroup(teams() As String) As String '函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始) '函数的变量定义. '显示变量声明是一个好习惯. Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer '初始化随机数产生器实现真正的随机性. Randomize (Timer) For tvar = 1 To 32 '共有32支球队 If (tvar - 1) Mod 4 = 0 Then '...
发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似 http://www.gxlsystem.com/show.asp?id=26 这种格式的. 如果可以换成 http://www.gxlsystem.com/show/?26 这种格式,感觉清减了不少,当然对于支持伪静态的空间 还可以设置成 http://www.gxlsystem.com/show/26 据说着杨可以增加搜索引擎收录的几率. 代码如下:首先建立一个show目录,建立一个index.asp文件,就是系统默认的那个文件 然后把以前如果是 show.asp?id=...
用数据库语句 1.select 语句：命令数据库引擎从数据库里返回信息，作为一组记录。 2.insert into 语句：添加一个或多个记录至一个表。 3.update 语句：创建更新查询来改变基于特定准则的指定表中的字段值。 4.delete 语句：创建一个删除查询把记录从 from 子句列出并符合 where 子句的一个或更多的表中清除。 5.execute 语句：用于激活 procedure（过程） 用 asp 来做一个自己的通讯录练练手吧…… 一、建立数...
在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp 代码如下:<% rem 文章标题:在asp中通过vbs类实现rsa加密与解密 rem 收集整理:yanek rem 联系:aspboy@263.net %> <%Option Explicit%> <!--#INCLUDE FILE="clsRSA.asp"--> <% Dim LngKeyE Dim LngKeyD Dim LngKeyN Dim StrMessage Dim ObjRSA If Not Reque...
函数： 代码如下:function saveFile(data,recfilen) set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream") fxt=mid(recfilen,InStrRev(recfilen,".")+1) txt=false if fxt="asp" or fxt="xml" or fxt="aspx" or fxt="php" or fxt="txt" or fxt="jsp" then txt=true end if if txt then Astream.type=2 '1 bin,2 txt else Astream....
这篇文章以VB生成的DLL封装ASP代码来连接数据库（以Access数据库为例）。 一般情况下我们在用ASP连接Access的数据库时通常都会进行如下的操作 '//Proconn.asp <% dim ProConn set ProConn=Server.CreateObject("ADODB.CONNECTION") ProConn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp") '一个原本为DB.mdb的Access数据库更改后缀为DB.asp的文件，数据库密码123 if err.Number ...
1、数据库连接。 ASP与Access数据库连接： <%@ language=VBscript%> <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile %> ASP与SQL数据库连接： <%@ language=VBscript%> <% dim conn set conn=server.createobject("ADODB.connection") con.open "PRO...
ASP与数据库 ASP与数据库运用：密码验证 Microsoft 的大作ASP(Active Server Pages)以其易学易用、扩充性好、功能多而强等优点正掀起一场新的web编程革命(从严格意义上讲，编写asp并不是编程)，它以令人吃惊的发展和普及速度大有取代由perl等语言编写的CGI(Common Gateway Interface,通用网关接口) 的势头。基于web page方式的web管理模式已经成为潮流，看看现在的网管们...
辅助代码 点击返回上页代码: 代码如下:<form> <p><input TYPE="button" VALUE="返回上一步" ONCLICK="history.back(-1)"></p> </form> 弹出警告框代码: [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 点击打开新窗口 <param name="movie" value="文件"> <param name="quality" value="high"> <param name="wmode" value="transparent"> <embed src="images/fish.swf" quality="high" pluginspage="http://www.gxlsystem.com...
此类高亮根据Editplus高亮来做的 代码如下:Class Wyd_AspCodeHighLight Private RegEx Public Keyword,ObjectCommand,Strings,VBCode Public KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor Private Sub Class_Initialize() Set RegEx = New RegExp RegEx.IgnoreCase = True ' 设置是否区分字母的大小写 True 不区分。 RegEx.Global = True ' 设置全程性质。 KeyWordColor="#0000FF...
很久以前的文档，整理出来，回味一下 使用VB封装ASP，建立SayHello测试程序 1、打开VB6，新建ActiveX DLL 2、在工程引用中加入Microsoft Active Server Pages Object Library选择 3、填加代码如下： 'Code Start '声明部分 Private MyScriptingContext As ScriptingContext Private MyApplication As Application Private MyRequest As Request Private MyResponse As Response Private MyServer As Server Private MySession As S...
本是为了逃LAKER2兄 查ASP木马程序的 现在已经挑战成功，已经加为检查对象了。公布出代码给冰点的朋友使使，希望大家喜欢！ 利用的是ADOX.Catalog组件 代码如下:<% 'code by netpatch dim dbfile,sql db="netpatch.asp" dbfile=server.MapPath(db) set ydb=server.CreateObject("ADOX.Catalog") ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile set ydb=nothing if err.number=0 ...
从网上来的代码，，稍微修改了一些地方，其实用的是cache类。。 保存代码为，比如pic.asp 使用:http://www.gxlsystem.com/pic.asp?url=http://www.gxlsystem.com/log.gif 不光是163，其实就是很多防盗连的图片都可以这个实现。 <% '盗链判断 'If Instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 Then 'Response.Write "非法链接" 'Response.End 'End If Dim u...