- 2012-06-13
% '---------------------------------------------------------------- '程序簡介: 完成asp語言對XML文檔中指定節點文本的增加、刪除、修改、查看 '入口參數: 無 '出口參數: 無 '------------------------------------------------ '函數名字：ConnectXml()
- 2012-06-13
ASP實例代碼，直接將數據庫中的數據導出到EXCEL電子表中。 !--#include file=../conn.asp-- % dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject(scripting.filesystemobject) '--假設你想讓生成的EXCEL文件做如下的存放 filename = Server.
- 2012-06-13
'======================== '文件１ 'Pack.asp '更改 Cpathname 這一變量 '將在當前目錄生成一個DATA.XML文件 '將DATA.XML及文件２（install.asp)上傳至ＷＥＢ根目錄 '運行install.asp解包 '手動刪除以上兩個文件 '======================== % Option Explic
- 2012-06-13
一個轉化時間的函數。kingcms中的時間處理也是很強大的，有時間可以看看。 PHP中的date()函數功能實在是太強大了，忍不住用ASP模仿寫了個.... 但只是寫到日，還沒寫小時，分，秒的.. 所以這個函數還沒能格式化小時，分，秒的，有時間以后再加上。 % '*******
- 2012-06-12
我們可使用SQL的UPDATE來更新數據庫表中的某條記錄。 更新數據庫表中的記錄 我們希望更新Northwind數據中Customers表的某條記錄。首先我們需要創建一個表格，來列出Customers中的所有記錄。 htmlbody%set conn=Server.CreateObject(ADODB.Connection)conn.
- 2012-06-12
我們可使用SQL的DELETE命令來刪除數據庫表中的某條記錄。 刪除表中的記錄 我們希望刪除Northwind數據庫的Customers表中的一條記錄。首先我們需要創建一個表格，來列出Customers中的所有記錄。 htmlbody%set conn=Server.CreateObject(ADODB.Connection)con
- 2012-06-12
我們可以使用SQL的INSERT INTO命令向數據庫中的表添加記錄。 向數據庫中的表添加記錄 我們希望向Northwind數據庫中的Customers表添加一條新的記錄。我們首先要創建一個表單，這個表單包含了我們希望選定數據的字段： htmlbodyform method=post action=dem
- 2012-06-12
顯示來自記錄集中的數據的最常用的方法，就是把數據顯示在HTML表格中。 顯示字段名稱和字段值 我們有一個名為Northwind的數據庫，并且我們希望顯示出Customers表中的數據（記得以.asp為擴展名來保存這個文件）： htmlbody%set conn=Server.CreateObject(
- 2012-06-12
% Function Comma(str) If Not(IsNumeric(str)) Or str = 0 Then Result = 0 ElseIf Len(Fix(str)) 4 Then Result = str Else Pos = Instr(1,str,.) If Pos 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) LoopCount = 1 While LoopCount =
- 2012-06-12
現在網站上大部分的驗證碼都是圖片驗證碼，就跟 http://dwww.cn/Books.asp 下邊的一樣。 用戶可能長時間的停留在頁面上，等到最后提交的時候，驗證碼就可能過期了。所以要加個刷新的功能。 驗證碼：input name='checkimg' type='text' class='input' id='che
- 2012-06-11
先將IP地址存入數據庫，然后取出來，效果如圖： 代碼如下： % '來源 ipstr= rs(cIP) ipstr=split(ipstr,.,-1,1) ipstrout=ipstr(0).ipstr(1).ipstr(2).* response.write ipstrout %
- 2012-06-11
在VBScript中，有一個On Error Resume Next語句，它使腳本解釋器忽略運行期錯誤并繼續腳本代碼的執行。接著該腳本可以檢查Err.Number屬性的值，判別是否出現了錯誤。如果出現錯誤，返回一個非零值。在ASP 3.0中，也可以使用On Error Goto 0“轉回到”缺省的
- 2012-06-11
首先，是HTML文件，為Test.asp，代碼如下：%@LANGUAGE=VBSCRIPT CODEPAGE=936% % if session(username)= then Response.Write(scriptalert('請登陸后在進行操作！');window.location='login.asp?reURL=Test.asp';/script) Response.End() end if %
- 2012-06-11
由于工作關系,要做個人空間,其中有一功能是對用戶投票，要求同一IP只能對同一用戶投票一次，貼Asp代碼： % '作者：無情 出處： db_conn(dbs) Voteusername=trim(request.QueryString(username)) rs_create(select username from [user] where username ='
- 2012-06-10
一個用來實現tag功能的asp類，具體的作用，如果您可以讀懂的話就可以明白了了。 修改記錄： 1,增加擴展函數,2006-12-3 % '****************************** '類名：tagEngine '名稱：標簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網址：www.xilou.net | www.
- 2012-06-10
作者真是細致，把這些東西都封裝成為class了。有點過了，這些東西可以作成過程或者函數來封裝，sub和function也是封裝，不一定非要class才可以。您的文件庫不一定全部都是class，一些sub和funtion都是必要的。 實現的功能包括 1，showInfo(e_title,c_url,e_n
- 2012-06-10
本例主要講述如何應用Create、Drop和Alter語句增加、刪除ACCESS表和字段，代碼如下： % '''''''''''''''''''''''''''''''''''' ' 增加、刪除表和字段 ' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,fiel
- 2012-06-10
由于工作關系，在做一個用戶空間。要用到空間的最近訪客，見ASP代碼： % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁要判斷該訪問是否登陸，只有登陸的訪問才能記
- 2012-06-08
ASP通過XMLDom在服務器端操作XML文件的主要方法和實現 對于小數據量，xml文件在檢索更新上于ACCESS有很多優勢。 我曾經測試過不用數據庫，把網站的會員信息，商品數據信息，交易信息，網站定制信息全部存放在三個xml文件中，運行結果十分正常，感覺上比數據
- 2012-06-08
% '防止GET,Post注入和防止服務器攻擊 '使用方法把本文件包含到需要防注的文件就OK了,說明下,這里的post攻擊和Get攻擊不一定是攻擊,在英文版本的時候請注意使用 '馮旭修改 session.Abandon() Dim fxjt111_Attack_post,fxjt111_Attack_Get,fxjt111_Attack_Sys