View Code复制代码 代码如下:<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %>
<center><h2><font face="宋体">访问数据库的通用代码实例</font></h2></center><body> <form id="form1" runat="server"> <div> <font face="宋体"><p align="center">1.请输入相应数据库连接字符串</p><p align="center"><asp:TextBox id="ConnStrTextBox" runat="server" Width="600"><...
复制代码 代码如下: protected void ReadFile() //读取文件夹,文件 { string savePath = @"common"; StringBuilder outstring = new StringBuilder(); string absSavePath = Server.MapPath(savePath); string[] Directorys = Directory.GetDirectories(absSavePath + @"/" + Page.User.Identity.Name); //for (int i = 0; i < Directorys.Length; i++) //{ ...
language.xml 代码如下:<?xml version="1.0" encoding="gb2312"?> <languageRoot> <!--简体中文--> <language> <LanguageName>简体中文</LanguageName> <LanguageValue>SimpilifiedChinese</LanguageValue> <LanguageImages>images</LanguageImages> <LanguageFile></LanguageFile> </language> <!--繁體中文--> <language1> <LanguageName>繁體中文</LanguageName> <LanguageValue>TraditionalChinese</LanguageValue> <Language...
程序代码: 以下为引用的内容: 代码如下:'关键字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t) strfilter="(empZw like '%"&keyArr(i)&"%' or empDep like '%"&keyArr(i)&"%' or empGz like '%" strfilter=strfilter&keyArr(i)&"%' or empWy1 like '%"&keyArr(i)&"%' or...
数据库位置:data/data.mdb 数据库表:user id name pwd wenti daan conn.asp <% db="data/data.mdb" 数据库存放目录 on error resume next set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db) if err then err.clear set conn = Nothing response.write "数据库连接出错,请检查conn.asp中的连接字符串。" response.end end if function CloseDB...
代码如下:<% ---------------------------------------------------------------- 程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 入口参数: 无 出口参数: 无 ------------------------------------------------ 函数名字:ConnectXml() 入口参数: filename 需要连接或打开的xml文件名 出口参数: 无 返回值 :ConnectXml=0,XMLMorntekDocument就是一个成功装载XML文档的对象了。 ConnectXml<>0,则打印错...
强制刷新网页<%强制性刷新随机验证码让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新,Response.expires=-1Response.AddHeader"pragma","no-cache"Response.AddHeader"cache-control","no-store"
%>
判断文件地址是否有效<%Response.Write("")On Error Resume NextDim thisurl,thistextthisurl=Request("thisurl") 定义文件地址(非Html格式文档)!if thisurl="" thenResponse.Write("请先输入文件地址!")Resp...
程序代码: 代码如下:关键字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t) strfilter="(empZw like %"&keyArr(i)&"% or empDep like %"&keyArr(i)&"% or empGz like %" strfilter=strfilter&keyArr(i)&"% or empWy1 like %"&keyArr(i)&"% or empWy2 like %"&keyArr(i) st...
Cookie是一种发送到客户浏览器的文本串句柄,并保存在客户机硬盘上,可以用来在某个Web站点会话之间持久地保持数据。Request和Response对象都有一组Cookie。Request.cookie集合是一系列Cookie,从客户端与HTTP Request一起发送到Web服务器。反过来,如果你希望把Cookie发送到客户机,就可以使用Response.cookie 1、ExpiresAbsolute属性 该属性可以赋一个日期,过了这个日期Cookie就不能再被使用了。通过给Expires属性赋一个过期...
其中使用到一个分页类CPaging 代码如下:Class CPaging Public RS ' RecordSet对象 Public Mark ' 指针标签 Private sSize ' 每页显示数 Private sTotal ' 总记录数 Private sPage ' 当前页码 Private sCount ' 总页码 Private Sub Class_Initialize sSize = 20 sPage = 1 sCount = 1 End Sub Private Sub Class_Terminate Closeobj RS End Sub '每页显示数 Property Let Size(Value) sSize = Value End Property Property Get Siz...
object.OpenTextFile(filename[, iomode[, create[, format]]])
参数
object :必选项。应为 FileSystemObject 对象的名称。
filename :必选项。字符串表达式,指明要打开的文件名称。
iomode :可选项。输入/输出模式,是下列三个常数之一:ForReading,ForWriting,或 ForAppending。
create :可选项。Boolean 值,指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True,否则为 False。默认值...
这是我自己的心得,给大家作个参考。 我的目的是让开发变得简单,尽可能少地考虑实现语句,更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。 如果你对ASP不熟悉,可以先看以下教程: 1、http://布鲁斯狼的ASP编程入门进阶 2、www.gxlsystem.com的ASP教程(英文\中文),查看更多 好吧,让我们进入正题: 先看以下例子: <% db_path = "database/cnbruce.mdb" Set conn= Server.CreateObject("ADODB.Connection") c...