可以把本功能写成一个函数，函数的处理过程描述如下： 首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表的某方面信息。其中TABLE_NAME字段包含了对应表的名称 然后遍历这个Recordset，如果“当前纪录”的TABLE_NAME字段的值和要查找的表的名字一样，证明要查找的表存在。 函数如下所示: 代码如下:function check_gived_...
IE测试通过，FF有点小BUG Cls_Leibie.asp 代码如下:<% '数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法 Class Cls_Leibie Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量（类的属性，即数据库字段对应的变量） Private rs,sql,ErrorStr Private Sub Class_Initialize() ErrorStr="" '初始化错误信息为空 End Sub Private Sub Class_Terminate() '...
1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。 2.然后需要对访问Access数据库的页面进行授权,针对显示数据页面只能使用select语句,过滤其他的update,asp文件则分为许可访问数据库页面和限制访问页。 3.修改数库据连接文件名conn.asp为类似123ljuvo345l3kj34534v.asp文件。 4.修改数据库名为类似q397d0...
以下是SQL连接代码： 代码如下:Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);" Conn.open Strconn set Open_conn=Conn If Err Then err.Clear Conn.close:set Conn=nothing Response.Write "对不起，数据库连接出错。" Response.End En...
代码如下:<%@LANGUAGE="VBSCRIPT"%> <% option explicit dim startime,endtime,conn,strCon,db startime=timer() Dim strSQLServerName Dim strSQLDBUserName Dim strSQLDBPassword Dim strSQLDBName '请填写数据库具体参数 '----------------------------------------------------------------------------------------------- strSQLServerName = "127.0.0.1" '服务器名称或地址 strSQLDBUserName = "sa" '数据库帐号 strSQLDBPa...
而Easp类中提供了大量实用的ASP通用过程及方法，可以简化大部分的ASP操作。目前只提供了VBScript版，JScript版将来可能会提供。EasyASP v1.5 (2008-10-22更新) 新增功能： 1、将数据库控制类(原clsDbCtrl.asp)封装入Easp类，均通过Easp.db调用，也可独立使用。 2、新增MSSQL存储过程调用方法，可灵活调用存储过程并返回返回值、记录集及出参。 3、新增db.CreatConn方法，可以根据自定义的连接字符串连接数据库。 4、新增db.Json方法...
啥都不说了，直接奉献原代码 代码如下:'==========注意=============================================== ' 1、网站所在文件夹的名字不能为“root” ' 2、网站所在文件夹的名字，物理路径中不允许出现重复此文件夹名，如F:\t\t,t为网站所在文件夹名，这种情况会出错 '============================================================= Dim dbPath,dbName,Db,ConnStr,WebSiteFolderName on error resume next WebSiteFolderName="We...
<html> <head> <title>获取ACCESS数据库表名_www.gxlsystem.com</title> </head> <body style="text-align:left;margin-left:50px;font-family:'arial';font-size:12px"> <form style="padding:5px;margin:5px;margin-left:0px" name="get" action="" method="post"> 数据库路径:<input type="text" name="path" value="" size="50" /> <input type="hidden" name="ari" value="1" /> <input type="submit" value="查看" /> </form...
代码如下:< % '功能：显示数据库中表名、字段名、字段内容 '原创：wangsdong '原创文章，转载请保留此信息，谢谢 set rs=server.CreateObject("adodb.recordset") db="db1.mdb" set conn=server.CreateObject("adodb.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.open connstr Set rs=Conn.OpenSchema(20) Do Until rs.EOF If rs(3)="TABLE" Then response.write "表名:"&rs(...
<form method="post" name="myform" action="?action=backupdatabase"> 选择操作： <input type="radio" name="act" id="act_backup"value="backup"> <label for=act_backup>备份</label> <input type="radio" name="act" id="act_restore" value="restore"> <label for=act_restore>恢复</label> <br> 数据库名： <input type="text" name="databasename" value="<%=request("databasename")%>"> <br> 文件路...
恭喜您，您中奖了，你的中奖码是（请牢记，领奖需要）：ＸＸＸＸＸＸＸＸＸＸＸ 然后用户输入ＸＸＸＸＸＸＸＸＸＸＸ，简单验证后就可以领奖了。 你使用过这样的功能，或者有没有想开发一个这样的功能呢？ 有一个思路是：将一批唯一中奖码，录入的到数据库，中奖时，取出来一条，做一个标记，把中奖码告诉 用户。 但是这样要先将一批中奖码录入到数据库中，有没有其他方法呢？ 比如：200807151054281502895e585d7e4b529e，能不能做...
最近在给客户做一个客户管理系统时遇到一个问题: 使用下列这个连接字符串时情况如下 connstr="DBQ="+server.mappath("db/#kehumsg.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr 有一个联接查询, 中用到要调用第二个表的id, 按正常来说可以这么调rs("b.id")但却显示在对应所需名称或序数的集合中，未找到项目。 在csdn上发贴终找不出答案,...
当初只是为了玩玩写的，没想到写了之后不断有人询问，所以改写了一下代码，完善了一下，支持了正则替换，避开了会导致出错的二进制（ole对象），并且做了一个EXE的程序。感谢虚拟帮忙。 附asp代码： 代码如下:<% #################################### 批量替换数据库内容2008-3-17 替换是不可逆的，所以操作前做好能备份 #################################### Dim Db,conn,Rs1,Rs2,Str1,Str2,I,Re str1...
Set objRs = Server.CreateObject("Adodb.Recordset") mysql = "select sname from [users] where sname = '"&sname&"'" objRs.open mysql,objConn,1,3 If objRs.Bof Or objRs.Eof Then objRs.addnew objRs("sname") = sname objRs.update Else call salert("该用户已经存在，不可以注册") End If
<table width="100%" border="0" cellpadding="0" cellspacing="0"> <% do while not rs.eof %> <tr> <td height="80"><img src="<%= rs("图片")%>" width="160" height="80"></td> </tr> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> </table> 记录排列如下： 1 2 3 4 5 如果我想把记录排列改成 1 2 3 4 5 那么以上代码该怎么改，请高手帮忙一下 代码如下:<table width="100%" borde...