記錄程式相關的一些實用語法: 原先搜集的一些實用語法

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Session.CodePage=65001 ' UTF-8
Session.CodePage = 950 ' BIG5
Session.CodePage = 936 ' GB2312

Response.CharSet="BIG5"
Response.CharSet="GB2312"
%>



<meta http-equiv="Refresh" content="0; URL=xxx.asp">




<script language="javaScript" type="text/javascript" src="http://jakei01.netfirms.com//images/board.js"></script>
<script language=vbscript src="loading.js"></script>



<input name="test" size="18" value="輸入關鍵字" onFocus="if (this.value=='輸入關鍵字') {this.value=''}" onBlur="if(this.value=='')this.value='輸入關鍵字'">



<html>
<head>
<title></title>

<meta http-equiv="content-type" content="text/html; charset=big5">
<meta http-equiv="Content-Language" content="zh-tw">
<meta http-equiv="Expires" content="Mon, 1 Jan 2000 1:00:00 GMT">
<meta http-equiv="Pragma" content="nocache">
<meta http-equiv="CACHE-CONTROL" content="NO-CACHE">
<meta http-equiv="Window-target" content="_blank">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
</body>
</html>




<html>
<head>
<title></title>
<meta http-equiv="content-type" content="text/html; charset=big5">
<meta http-equiv="Expires" content="Mon, 1 Jan 2001 1:00:00 GMT">
<meta http-equiv="Pragma" content="no-cache">
</head>

<frameset rows="100,1*" cols="*" border="0" framespacing="0" frameborder="NO">
<frame src="xxx.asp" marginwidth="0" marginheight="0" frameborder="NO" scrolling="NO">
<frameset cols="200,1*" rows="*" border="0" framespacing="0" frameborder="NO">
<frame name="xxx" src="xxx.asp" marginwidth="0" marginheight="0" frameborder="NO" scrolling="NO">
<frame name="xxx" src="xxx.asp" marginwidth="0" marginheight="0" frameborder="NO">
</frameset>
</frameset>
</html>



<script language="JavaScript">

</script>

********************************************************************
加到 form 中

<form id="form1" runat="server" onsubmit="return CheckAll(this)">
********************************************************************
加到 Submit按鈕中

<input type="button" value="Submit" onclick="this.disabled=true;this.form1.submit()"
********************************************************************



<iframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no width=540 height=18 name="ticker" src="http://www.ettoday.com.tw/common/ticker.htm"></iframe>



<a href="javascript:history.back(1)">[上一頁]</a>



<a href="#" onMouseOver="window.status='活動介紹'; return true;" onMouseOut="window.status='';">test</a>



' 處理有 enter 符號,換為 <br>
body = Replace(body, vbCrlf, "<br>")

' 於執行斷行時,<br>一樣會被加一,算入是否大於 80 字元,為了不加一,所以用`字,先代替<br>
body = Replace(body, "<br>", "`")

' 斷行處理的副程式
breakline(body)

' 還原 ` 為 <br>
body = Replace(body , "`", "<br>" )

Function breakline(m_output)
'上一次位置、目前累計長度、實際位置、總長度
Dim old_pos, tmp_Len, i, tot_Len,temp_body,temp2_body

old_pos = 0 '上一次位置
tmp_Len = 0 '記錄邏輯上的長度
TOT_LEN = Len(Trim(m_output))
temp_body = ""
temp2_body = ""

' i 代表字串中實際的位置
For i = 1 To tot_Len
If Len(Hex(Asc(Mid(m_output, i, 1)))) > 2 and Mid(m_output,i,1) <> "`" Then
'將長度加2
tmp_Len = tmp_Len + 2
ElseIf Mid(m_output,i,1) = "`" then
temp_body = Mid(m_output,old_pos+1,i-old_pos)
' 還原計數值,因為 <BR> 也會被算入,所以將<BR>將換為"`",以避免被加一
old_pos = i
tmp_Len = 0
ELSE
' 否則加1
tmp_Len = tmp_Len + 1
End If

'如果大於等於 80 字元，準備輸出結果

If tmp_Len >= 80 Then
temp_body = Mid(m_output,old_pos+1,i-old_pos) & "<br>"

' 還原計數值
old_pos = i
tmp_Len = 0
End If
temp2_body = temp2_body & temp_body
temp_body = ""
Next

'將其餘的字元(如果還有的話)一併輸出
If tmp_Len > 0 Then
body = temp2_body & Mid(m_output,old_pos+1,tot_Len-old_pos)
body = Replace(body ,"`", "<br>" )
End If
End Function



<a HREF="#" target="_blank">
<IMG style=filter:gray() onmouseover=this.style.filter="" onmouseout=this.style.filter="gray()" src="http://www.knsh.com.tw/Image9.gif">
</a>



目前所在頁次為第 <font class="txt"><%=page%></font> 頁｜
總頁數有 <font class="txt"><%=rs.pagecount%></font> 頁｜
現有資料共 <font class="txt"><%=rs.recordcount%></font> 筆　
<select name="jump" onChange="location.href=this.options[this.selectedIndex].value;" class="txt">
<%
FOR J=1 to rs.pagecount
IF J = cint(page) then StrSelect=" selected" else StrSelect=""
IF J < 10 then J = "0" & J
response.write " <option value=""" & SourceURL & "?Page=" & cint(J) & """" & StrSelect & ">跳到第 " & J & "頁"
NEXT
%>
</select>



<%
page=request("page")
if len(page)=0 then page=1
rs.pagesize=10
if not rs.eof then rs.absoluteposition=((page-1)*rs.pagesize)+1
%>

<span class="no9g">
<a href=?page=1>首頁</a>  
<%
dim x,y,z
y=page-5
z=page+5
if z>rs.pagecount then z=rs.pagecount
if y<=0 then y=1
for x=y to z
if Cint(x)<>Cint(page) then
response.write "<a href=?page=" & x & "><font color=""#FFFFFF"">" & x & "</font></a>  "
else
response.write "<font color=""#AAAAAA"">" & x & "</font>  "
end if
next
%>
<a href=?page=<%=rs.pagecount%>>末頁</a>  
  【第 <%=page%> 頁 / 共 <%=rs.pagecount%> 頁】
</span>



<%
' 放最前面
On Error Resume Next
%>

<%
set myerror=rs.activeconnection.errors
response.write "系統發生" & myerror.count & "個錯誤<br>"

for i=0 to myerror.count-1
response.write myerror(i).description & "<br>"
next
%>



style="WIDTH: 200px; WORD-WRAP: break-word"



<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">



<input name="Chinese" type="text" size="4" maxlength="5" onKeyPress="if ((event.keyCode > 20) && (event.keyCode < 128)) event.returnValue = false;">
<input name="Number" type="text" size="4" maxlength="5" onKeyPress="if ((event.keyCode < 48) && (event.keyCode > 57)) event.returnValue = false;">



上引線 <a style="text-decoration: overline">AB</a>
下引線 <u>AB</u>
下標字 <sub>2</sub>
上標字 <sup>2</sup>
刪除線 <strike>原價100元</strike>



<%
' 判斷日期格式是否正確，並判斷是否為閏年，二月為29天
Q_Date=ChangeText(request.form("Q_Year")) & "/" & ChangeText(request.form("Q_Month")) & "/" & ChangeText(request.form("Q_Day"))
if not IsDate(Q_Date) then
Q_Date=ChangeText(request.form("Q_Year")) & "/" & ChangeText(request.form("Q_Month")) & "/30"
if request.form("Q_Month")=2 and request.form("Q_Year") mod 4=0 then
Q_Date=ChangeText(request.form("Q_Year")) & "/" & ChangeText(request.form("Q_Month")) & "/29"
elseif request.form("Q_Month")=2 then
Q_Date=ChangeText(request.form("Q_Year")) & "/" & ChangeText(request.form("Q_Month")) & "/28"
end if
end if
<%



<marquee ScrollAmount=3 Onmouseover="this.stop()" Onmouseout="this.start()">跑馬燈</marquee>



<input type=text name="In_Name" value="請輸入姓名" size="18" class="anla-blue-12"
onBlur="if(this.value=='') if(this.style.backgroundColor='#FFFFFF')this.value='請輸入姓名';"
onFocus="if(this.value.indexOf('請')!=-1) if(this.style.backgroundColor='#FFFCE3')this.value='';"
onMouseOver="this.focus();"
>



<script language="javascript">
function chkform(){
//檢查問題選項是否皆有勾選
var i,j,k;
ArrayK=new Array(5,4,4,5,5,5,5,4,19,17,6,6,2,5,2)
for(i=0;i<15;i++){
j=0;
for(k=0;k<ArrayK[i];k++){
str=eval('myform.Q'+(i+1));
if(str[k].checked==true) (j=j+1)
}
if(j == 0){
alert('問題 '+(i+1)+' 尚未回答...');
str[0].focus();
return;
}
}
myform.submit();
}
</script>



<noscript>
<iframe src="nothing.htm"></iframe>
</noscript>



function SelectAll(obj,strName){
for(var i=0; i<obj.elements.length; i++){
var e=obj.elements[i];
if(e.name == strName) {
if (e.checked == true) {e.checked=false;} else {e.checked=true;}
}
}
}

// <input type="button" name="Submit01" value="全選" onclick="SelectAll(this.form,'del');">



function fullWindow(){
window.resizeTo(screen.availWidth,screen.availHeight);
window.moveTo(0,0);
//window.focus();
}

<body onLoad="fullWindow();">



通過給 ASP 文件添加腳本來防止緩存單獨的頁面。方法是將以下腳本添加到 ASP 文件內容的最前面：
Response.Expires = -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache,must-revalidate"



名稱
myform.GameID1.options[myform.GameID1.selectedIndex].text
值
myform.GameID1.options[myform.GameID1.selectedIndex].value



<%
For each cookie in Request.Cookies
Response.Cookies(cookie)=""
Response.Cookies(cookie).expires=Date()-1
for each key in Request.Cookies(cookie)
Response.Cookies(cookie)(key)=""
Response.Cookies(cookie)(key).expires=Date()-1
next
next
%>



<%
' 防止注入非法參數
sub checksqlin()
Dim Fy_Post1,Fy_Get1,Fy_In1,Fy_Inf1,Fy_Xh1,Fy_db1,Fy_dbstr1
'定義需要過濾的字串,用 "|" 分隔
Fy_In1 = "conn.open|conn.execute|exec|insert|select|delete|update|master|count|truncate|declare|execute|include|script|CreateObject|Server.MapPath|FileSystemObject|iframe"
Fy_Inf1 = split(Fy_In1,"|")
'--------POST部份-------------------
If Request.Form<>"" Then
For Each Fy_Post1 In Request.Form
For Fy_Xh1=0 To Ubound(Fy_Inf1)
If Instr(LCase(Request.Form(Fy_Post1)),Fy_Inf1(Fy_Xh1))<>0 Then
Response.Write "<Script Language=JavaScript>alert('系統提示你↓\n\n請不要在內容中包含非法參數字元\n\n請修改非法字元：\n\n"&Fy_Inf1(Fy_Xh1)&"\n\n');history.go(-1);</Script>"
Response.End()
End If
Next
Next
End If
'--------GET部份-------------------
If Request.QueryString<>"" Then
For Each Fy_Get1 In Request.QueryString
For Fy_Xh1=0 To Ubound(Fy_Inf1)
If Instr(LCase(Request.QueryString(Fy_Get1)),Fy_Inf1(Fy_Xh1))<>0 Then
Response.Write "<Script Language=JavaScript>alert('系統提示你↓\n\n請不要在內容中包含非法參數字元\n\n請修改非法字元：\n\n"&Fy_Inf1(Fy_Xh1)&"\n\n');history.go(-1);</Script>"
Response.End()
End If
Next
Next
End If
end sub

' 用下列方式呼叫驗證的副程式
if Request.Form<>"" or Request.QueryString<>"" then call checksqlin()
%>



<script language="javascript">
function onlyNumEng(){
if((event.keyCode<48)||((event.keyCode>=58)&&(event.keyCode<=64))||((event.keyCode>=91)&&(event.keyCode<=96))||(event.keyCode>122)){event.returnValue=false;}
}
</script>

<input type="text" name="NoChinese" value="" maxLength="10" onkeypress="onlyNumEng();" style="IME-MODE: disabled">



<meta http-equiv="ImageToolBar" content="NO">



首先於ASP程式加一行：
<%
' 讀取用戶端瀏覽器狀態
Set obj1 = Server.CreateObject("MSWC.BrowserType")
Response.Write "browser = " & obj1.browser & "<BR>"
Response.Write "version = " & obj1.version & "<BR>"
Response.Write "frames = " & obj1.frames & "<BR>"
Response.Write "tables = " & obj1.tables & "<BR>"
Response.Write "BackgroundSounds = " & obj1.BackgroundSounds & "<BR>"
Response.Write "vbscript = " & obj1.vbscript & "<BR>"
Response.Write "javascript = " & obj1.javascript & "<BR>"
Response.Write "platform = " & obj1.platform & "<BR>"
Response.Write "width = " & obj1.width & "<BR>"
Response.Write "height = " & obj1.height & "<BR>"
Response.Write "bufferDepth= " & obj1.bufferDepth & "<BR>"
Response.Write "colorDepth = " & obj1.colorDepth & "<BR>"
Response.Write "cookies = " & obj1.cookies & "<BR>"
%>

告訴瀏覽器先使用cookie1.htm中的DHTML語法偵測瀏覽器的資訊：
<HTML>
<HEAD>
<Script Language="JavaScript">
function window.onload ()
{
body1.style.behavior = "url(#default#clientCaps)";
bcString = "browse=" + body1.browser;
bcString += "&version=" + body1.version;
bcString += "&frames=" + body1.frames;
bcString += "&tables=" + body1.tables;
bcString += "&BackgroundSounds=" + body1.BackgroundSounds;
bcString += "&vbscript=" + body1.vbscript;
bcString += "&javascript=" + body1.javascript;
bcString += "&platform=" + body1.platform;
bcString += "&width=" + body1.width;
bcString += "&height=" + body1.height;
bcString += "&bufferDepth=" + body1.bufferDepth;
bcString += "&colorDepth=" + body1.colorDepth;
bcString += "&cookies=" + body1.cookieEnabled;
document.cookie = "BrowsCap = " + bcString;
}
</SCRIPT>
</HEAD>
<BODY ID="body1"></BODY>
<HTML>



<%
' 顯示所有檔案名稱
Set fso=Server.CreateObject("Scripting.FileSystemObject")
fp=Server.MapPath("/")
set fod=fso.GetFolder(fp)
set fic=fod.Files
For Each fil In fic
Response.Write fil.Name & "<br>"
Next
set fic=nothing
set fod=nothing
set fso=nothing
%>



<script>
String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
str = " this is a sample ";
alert(str.trim());
</script>



<input type="button" value="Submit" onclick="this.disabled=true;this.form1.submit();"

記錄程式相關的一些實用語法

2013年9月4日星期三

原先搜集的一些實用語法

沒有留言:

張貼留言

2013年9月4日 星期三

原先搜集的一些實用語法

沒有留言:

張貼留言

2013年9月4日星期三