ASP

Function RemoveSpan(byval strContent) Dim objReg ,strTmp If strContent="" OR ISNull(strContent) Then Exit Function   Set objReg=new RegExp objReg.IgnoreCase

Thesoft=Request.ServerVariables("HTTP_USER_AGENT")If instr(thesoft,"Windows NT 5.0") Then vOS="Win2000"ElseIf instr(thesoft,"Windows NT 5.2") Then vOs="Win2003"ElseIf

 '============================== '函 數 名：ShowPageCode '作    用：顯示頁碼 '參    數：連結PageUrl，當前頁Nows，記錄數AllCount，每頁數量Sizes，總頁數AllPage '============================== Public Function

'============================== '函 數 名：GetHttpPage '作    用：擷取頁面原始碼函數 '參    數：採集連結HttpUrl '==============================  Public Function GetHttpPage(HttpUrl)  If

<!--#include file="upload_wj.inc"--><style>td{font-size:9pt;line-height:120%;color:#353535} body{font-size:9pt;line-height:120%}a:link          { color: #000000; text-decoration:

<%@ LANGUAGE = VBScript CodePage = 936%><!--#include file="safe.asp" --><%On Error Resume NextResponse.Buffer = Truedim startimedim conndim connstrdim sqldatabase,sql_pass_word,sql_User_ID,sql_Data_Sourcestartime=timer()Set

<%const ImagePath="images/"function UBBCode(strContent)strContent= FilterJS(strContent)dim redim po,iidim reContentSet re=new RegExpre.IgnoreCase

<%function

dim oUpFileStreamClass upload_file  dim Form,File,Version  Private Sub Class_Initialize    '定義變數  dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo  dim

'***********************************************'過程名：showpage'作  用：顯示“上一頁 下一頁”等資訊'參  數：sfilename  ----連結地址'       totalnumber ----總數量'       maxperpage 

<%'*************************************************'函數名：gotTopic'作  用：截字串，漢字一個算兩個字元，英文算一個字元'參  數：str   ----原字串'       strlen

<%Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name Err_Message = 1  '處理方式：1=提示資訊,2=轉向頁面,3=先提示再轉向Err_Web =

<%@LANGUAGE = "VBScript" CODEPAGE="936"%><%Option Explicit%><!--#include file="Cls_PageView.asp"-->Class Cls_PageView Private sbooInitState Private sstrPageUrl Private

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%On Error Resume Nextdim startime,endtimestartime=timer()'串連資料庫dim db,conn,rsdb = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("./db.mdb"

<%@language="vbscript" codepage="936"%><%'定義資料連線option expliciton error resume nextdim startime,endtimestartime=timer()dim db,conn,rsdb = "provider=microsoft.jet.oledb.4.0;data source=" &

<% '================================================' By Kangk.L'Date    2006-04-07'Program Name  Kangk PageAc'Class Name   Cls_PageAc'''---------Property

<%const iis3onchsys=falsefunction htmlencode2(str)    dim result    dim l    if isNULL(str) then        htmlencode2=""       exit

<%function DelectImageFile(NewsID,i)set DelectFile=server.CreateObject("scripting.filesystemobject")CurrentPath=server.MapPath("images/news/")FileName=CurrentPath  & "" & NewsID & "-" &

Function UBBEnCode(Content)fString=ContentfString=replace(fString,"<","&lt;")fString=replace(fString,">","&gt;")fString=replace(fString,chr(13),"<BR>")fString = doCode(fString,

On Error Resume NextFy_Url=Request.ServerVariables("QUERY_STRING")Fy_a=split(Fy_Url,"&")redim Fy_Cs(ubound(Fy_a))On Error Resume Nextfor Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")