原创 省市縣無刷新多級關聯菜單
全國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