原创 省市縣無刷新多級關聯菜單

 全國31個省的所有市縣都有   <html><head><title>省市縣關聯菜單</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">

原创 ACCESS數據庫防下載技術

 這裏首先要說明的是,現在絕大多數網站製作人員都認爲,把*.mdb的數據庫文件擴展名改爲*.asp的文件,別人就無法下載,我在這裏要說明的是,這是一個非常錯誤的做法!!雖然你把擴展名改爲*.asp的了,別人無法通過輸入這個數據庫的URL地

原创 用JS實現簡繁體的轉換

<A style="COLOR: #000000" name=StranLink><font color='red'>繁體中文</font></A>               <script language="JavaScript"

原创 三級下拉菜單 (通用版)

<SCRIPT LANGUAGE="JavaScript"><!--function CreateSelect(_FormName,_SName,_SValue,_Ds,_AllOptionStr,ShowType)...{    //三

原创 分頁代碼

  <!--#include file="conn.asp"--><%N_type=request("N_type")set rs = server.createobject("adodb.recordset")sql = "select

原创 FSO 相關的代碼

比較多人問過的問題,動態include文件 '利用FSO動態調用文件Function include(filename)    Dim re,Content,FSO,F,aspStart,aspEnd    Set FSO = Creat

原创 asp完美分頁代碼

<%rs.PageSize = 翻頁數     rs.CursorLocation = 3rs.Open sql,conn,0,2,1 pre = t

原创 長文章分頁代碼

<%Function c2u(myText) Dim i c2u = "" For i = 1 to Len(myText) c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" N

原创 如何取得字符串中字符長度

Function LengthOfString(str)Dim l,c,i,tLengthOfString = 0If str="" Then Exit Functionl=Len(str)For i=1 to l     c=Abs(A

原创 一行n列顯示代碼

<table><tr><% set rs=......sql=...rs.open .....dim ii=0do while not rs.eofi=i+1%><td>.....新聞標題等顯示內容</td><% if (i mod n)

原创 實例方法:解決ASP圖像上傳漏洞

  常聽說的ASP上傳漏洞,即是將一些木馬文件修改後綴名(修改爲圖像文件後綴),進行上傳。 針對此情況使用下列函數進行辨別: <% '****************************************************

原创 根據IP顯示不同網頁

<% function cip(sip)  tip=cstr(sip)  sip1=left(tip,cint(instr(tip,".")-1))  tip=mid(tip,cint(instr(tip,".")+1))  sip2=l

原创 ASP.NET利用JavaScript實現無刷新閃爍二級聯動菜單

News_Aclass表---大類表 ClassID Int 4 ClassName varchar 50 News_Anclass表---小類表 NclassID int 4 Nclass varchar 50 ClassID int

原创 上一篇,下一篇鏈接代碼

'****************************************************** 'Depiction:ShowHead 'Param:CiassID 類別ID號 '        Article_id  當

原创 ASP內容分頁

利用統計文章字數,然後達到一定字數就截斷輸出,但是分頁的內容就會在莫名其妙的地方截斷,不是很友好。 很簡單,在要截斷的地方附近找下面的符號: ;’”?。!;".! 如果後面存在<p>或<br>就分頁。主要是要研究文章的格式。 <% if