日韩精品羞羞答答,日韩在线视频免费播放,福利免费视频

轉帖自草惜草BLOG原創

http://blog.csdn.net/caoxicao/services/trackbacks/498022.aspx

http://blog.csdn.net/caoxicao/archive/2005/10/09/498059.aspx

http://blog.csdn.net/caoxicao/archive/2005/10/09/498061.aspx

http://blog.csdn.net/caoxicao/archive/2005/10/09/498066.aspx

1. 幾個常用函數
Round(pi, 2) 四舍五入

FormatNumber(k,4) ' 把 k 格式化為帶四位小數點的數。
eg. 如果k =20000則顯示為20,000.00；如果把formatnumber(k,0)則為20,000

Replace(expression,find,replacewith) '返回一字符串，其中指定的子串已被另一個子串替換

Left(String,Length) '返回指定數目的從字符串的左邊算起的字符串。

Split(expression[, delimiter[, count[, start]]]) '返回基于 0 的一維數組，其中包含指定數目的子字符串。
eg. 常用這個 Split(String,[delimiter]) ' 用delimiter(用于標識子字符串界限的字符)來劃分字符串

Instr(String1,String2) '返回某字符串在另一字符串中第一次出現的位置
eg1. if instr(addation,"密碼配置表")<>0 then '說明存在
eg2. if instr(str,”AP”) >0 不好區分str = (AP,AP&AC),此時只要變為（’AP’,’AP&AC’）,再用instr(str,”’AP’”)
2. 彈出窗口Pick值

function pickupSP(spdisid,pjnum,pdcode)
{
window.opener.<%=theForm%>.RefNum<%=Spid%>.value=spdisid;
window.opener.<%=theForm%>.LineS<%=Spid%>.value=pjnum;
window.opener.<%=theForm%>.kokey<%=Spid%>.value=pdcode;
window.close();
}
3. ASP控制圖片顯示的大小（等比例縮放）
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<script language="JavaScript">

</script>
</HEAD>
<BODY>
<a href="./img.jpg" target="_blank"><img src="./img.jpg" border="0" width="164" height="112" onload="javascript:DrawImage(this);"></a>
</BODY>
</HTML>
4. ASP中對數據庫表的操作(INSERT/UPDATE/DELETE),可使用事務處理,并支持多事務處理.
在ASP的數據庫對象鏈接對象中,提供了一下屬性:
BeginTrans 事務開始
CommitTrans 事務提交
RollbackTrans 事務回滾
<%
On Error Resume Next ’錯誤發生后繼續處理
'Asp中使用事務
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "course_dsn","course_user","course_password"
conn.begintrans '開始事務
sql="delete from user_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if conn.errors.count>0 then '有錯誤發生
conn.rollbacktrans '回滾
set rs=nothing
conn.close
set conn=nothing
response.write "交易失敗，回滾至修改前的狀態！"
response.end
else
conn.committrans '提交事務
set rs=nothing
conn.close
set conn=nothing
response.write "交易成功！"
response.end
end if
%>
在ASP中,不提供事務的結束,BeginTrans只作用于自己的域,類似于變量聲明一樣,如果在函數體內BeginTrans,則事物只作用于本函數體,如果BeginTrans在函數體外,處于頁面級,則事務的作用域從BeginTrans開始,到頁面的結束均處于事務的管理狀態下.
5. EasySales數據庫操作

dim objCon,objRst,objsql
dim companyid
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open SYSDNS,SYSNAME,SYSPASSWORD
Set objRst = Server.CreateObject("ADODB.RecordSet")
objsql="select * from PasswordConfig where companyid='"&session("CompanyID")&"'"
objRst.Open objsql,objCon,1,3
6. html格式郵件發送
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
HTML = HTML & "<link href="../cn/new.css" rel="stylesheet" type="text/css">"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<p><font size=7>"
HTML = HTML & "This is a test mail in html<br>"
HTML = HTML & "Mail content here ...</font></p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
dim StrRecEmail,StrPosEmail,StrSubject,StrBody
StrRecEmail=request("email")
StrPosEmail="yufh@alleasy.com.cn"
StrSubject="資料下載通知函"
StrBody=HTML
7. input是下劃線
style="BORDER-RIGHT: #f7f7f7 0px solid; BORDER-TOP: #f7f7f7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7f7f7 0px solid; WIDTH: 110px; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #f7f7f7"
8. Session & Cookie
寫入一個SESSION：　
　　 Session["username"])="aa";
　　 Session("username")="aa" 　　
　　讀取一個SESSINN：　　
　　 string username= Session["username"];　
　　 dim username=Session("username")　　
　　 Cookie與此用法大致相同
9. 幾個VB中的常數
下列常數由 Visual Basic for Applications 中的類型庫定義，可用來在代碼中的任何地方代替實際值：
常數等于描述
vbCrLf Chr(13) + Chr(10) 回車符與換行符結合
vbCr Chr(13) 回車符
vbLf Chr(10) 換行符
vbNewLine Chr(13) + Chr(10) 平臺指定的新行字符；適用于當前平臺
vbNullChar Chr(0) 值為 0 的字符
vbNullString 值為 0 的字符串用來調用外部過程；與長度為零的字符串 ("") 不同
vbObjectError -2147221504 用戶定義的錯誤號應當大于該值，例如：
Err.Raise Number = vbObjectError + 1000
vbTab Chr(9) Tab 字。
vbBack Chr(8) 退格字符

10. 按鈕為不可用
<%if rsView.eof and rsView.bof then %> ‘ 這里有個大問題，下文再說
<input name="submit" type='submit' value='對選定用戶解鎖' disabled>
<%else%>
<input name="submit" type='submit' value='對選定用戶解鎖' >
</td>
<%end if%>

11. 報錯并返回

if rs.bof and rs.eof then ‘ 還是有問題
response.write"<SCRIPT language=JavaScript>alert('找不到！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
這個是跳轉。
<script language="javascript">
alert('<%=intOperationInfo%>');
window.navigate('ChangePwd.asp');
</Script>

12. 從 VBS 到 JS ，混用

<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
<script language="javascript">
alert("<%=checkpwdconfig(0)%>")
</script>

13. 彈出窗口

用一個連接調用：
<a href=""＃"">請修改密碼 onClick="openaddnew()"</a>

圖片調用：
<img name=submit1 src="../button_new<%=session("languageid")%>.gif" onClick="openaddnew()">

14. 分頁

<%
if request("pageno")<>"" then
pageno=int(request("pageno"))
else
pageno=1
end if

sql="select * from news where [language]='中文' and bigclassname='新聞' order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.pagesize=20
if rs.eof then
pageno=0
else
rs.absolutepage=pageno
end if
%>
==========================================
共<%=rs.recordcount%>條,<%=pageno%>/<%=int(rs.pagecount)%>頁,每頁<%=rs.pagesize%>條
<a href="manage.asp?pageno=1">首頁</a>
<%if pageno>1 then%>
<a href="manage.asp?pageno=<%=int(pageno)-1%>">上一頁</a>
<%
end if
if int(pageno)<>int(rs.pagecount)then
%>
<a href="manage.asp?pageno=<%=int(pageno+1)%>">下一頁</a>
<%end if%>
<a href="manage.asp?pageno=<%=int(rs.pagecount)%>">尾頁</a>
<%rs.close%>
<%

call CloseConn()
%>

15. 數據庫更新

sql="select * from [user] where username='"&request("username")&"'"
rs.Open sql,Conn,1,3
rs("usermail")=Request("usermail")
rs("userhome")=Request("userhome"))
rs.update
rs.close

16. 關閉獨立窗口

17. 極細表格

18. 幾個正則表達式

Require : /.+/,
Email : /^\w+([-+.]\w+)*@\w+([-.]\\w+)*\.\w+([-.]\w+)*$/,
Phone : /^(($\d{3}$)|(\d{3}\-))?($0\d{2,3}$|0\d{2,3}-)?[1-9]\d{6,7}$/,
Mobile : /^(($\d{3}$)|(\d{3}\-))?13\d{9}$/,
Url : /^http:\/\/[A-Za-z0-9]+\.[A-Za-z0-9]+[\/=\?%\-&_~`@[\]\':+!]*([^<>\"\"])*$/,
IdCard : /^\d{15}(\d{2}[A-Za-z0-9])?$/,
Currency : /^\d+(\.\d+)?$/,
Number : /^\d+$/,
Zip : /^[1-9]\d{5}$/,
QQ : /^[1-9]\d{4,8}$/,
Integer : /^[-\+]?\d+$/,
Double : /^[-\+]?\d+(\.\d+)?$/,
English : /^[A-Za-z]+$/,
Chinese : /^[\u0391-\uFFE5]+$/,
UnSafe :/^(([A-Z]*|[a-z]*|\d*|[-_\~!@#\$%\^&\*\.\[\]\{\}<>\?\\\/\'\"]*)|.{0,5})$|\s/,

19. Left 應用（控制字數）

function title(str)
if len(trim(str))>=28 then
title=left(trim(str),27)&"..."
else
title=trim(str)
end if
end function

20. 判斷瀏覽器

<SCRIPT LANGUAGE="javascript1.2">

</script>

21. 嵌入另一頁

22. 全部選定

<SCRIPT language=javascript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
引用：
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox"> 選中本頁顯示的所有 </td>

小格：
<input name='username' type='checkbox' id="username" value="<%=cstr(rsView("username"))%>">

23. 如何處理頁面執行時發生的錯誤？

<%@ LANGUAGE="VBScript" %>
<%
Response.Buffer = True' 打開頁面緩沖
On Error Resume Next ' 打開錯誤處理
…………' ASP 代碼
%>

<%
If Err.Number <> 0 Then ' 錯誤處理
Response.Clear ' 清除緩沖區
%>

<HTML>' 顯示錯誤信息頁面
<HEAD>
<TITLE> 頁面錯誤報告 </TITLE>
</HEAD>

<BODY BGCOLOR="#C0C0C0">
<font color=red>
<p> 頁面錯誤報告 </p>

錯誤號 :<%= Err.Number %><BR>
錯誤描述 :<%= Err.Description %><BR>
錯誤源 :Source <%= Err.Source %><BR>
錯誤發生行 :<%= Err.Line %><BR>
</BODY>
</HTML>
<%
End If
%>

24. 收藏夾圖標 .

在 HEAD 部分加入下面的內容 :
<LINK REL="SHORTCUT ICON" HREF= http://www.alleasy.com.cn/alleasy.ico >

在地址欄加入圖標（圖標必須是 .ico 格式，并且要加入收藏后才有效）
在 HEAD 里加入 <link rel="shortcut icon" href="favicon.ico">

25. 校驗提交表單（正則表達式應用）

過 15 個字符，注意不要使用空格。 ");
Password.focus();
Password.select();
return false;
}
if (Password.value != ConfirmPassword.value)
{
alert(" 請兩次填寫的密碼不一致，請重新填寫！ ");
ConfirmPassword.focus();
return false;
}
if (CompanyName.value =="")
{
alert(" 請填寫貴公司名稱！ ");
CompanyName.focus();
return false;
}
var filter=/^[a-zA-Z][a-zA-Z0-9._-]*@([a-zA-Z0-9-_]+\.)+(com|gov|net|com\.cn|edu\.cn)$/;
if(!filter.test(document.myform.Email.value)){
alert(" 郵箱格式不正確 !");
document.myform.Email.focus();
return false;
}
myform.submit();
return true;
}
//-->
</SCRIPT>

統一一下，以后都這樣寫
<form method="POST" name="myform" action="Checkreg.asp" >
</form>

26. 循環

<%
dim sql,rs
set rs=server.createobject("ADODB.recordset")
sql="select * from news where bigclassname=' 解決方案 '"
rs.open sql,conn,1,3
for k=1 to rs.recordcount
if rs.eof then
exit for
else
%>

<tr>
<td>
asfasdf
</td>
</tr>

<%
rs.movenext
end if
next
%>

27. 另一個只能輸入數字代碼

28. 有選擇顯示

調用：

<option value="Inventory">Inventory</option>

</select>

選擇顯示行 <tr id="Reftr" name="Reftr" style="display:none"> 也可以用 <div id=”Resftr” ></div>

29. 調試參數顯示規范

Response.Write session("LoginCompanyId")&","&Date&","&Request.Form("Owner")&","&Request.Form("Name")&
// 注意最后沒有 " 只是在，之間用 "," 其他用 && 引用即可
// 也就是說只是用 &","& 中間加一個逗號，其他的該怎么寫，就怎么寫
Response.End

30. 從數據庫填充下拉菜單

<%
sql = "select * from BigClass"
rs.open sql,conn,1,1
%>

<%
rs.movenext // 不能少，否則重復
do while not rs.eof
%>

// 以下是新方法

31. 確認操作

function ConfirmDel()
{
if(confirm(" 確定要刪除嗎？一旦刪除將不能恢復！ "))
return true;
else
return false;
}

==============================================================

我自己用的一個。
function ConfirmReset()
{
if(confirm(" 確定取消操作嗎？一旦取消操作將不能恢復！ "))
window.form1.reset();
// return true;
}
<a href="javascript:ConfirmReset();"><img src="button_cance.gif"></a>

32. indexOf() 用法

< 字符串對象 >.indexOf(< 另一個字符串對象 >[, < 起始位置 >]) ；

該方法從 < 字符串對象 > 中查找 < 另一個字符串對象 > （如果給出 < 起始位置 > 就忽略之前的位置），如果找到了，就返回它的位置，沒有找到就返回“ -1 ”。所有的“位置”都是從零開始的。
eg. Str.indexOf(“AP”)>-1 說明 str 中存在 ”AP” 字符串

33. 生成流水號

<%
if request.form("Modf") <> "" then
Dim rs
Dim sql
Dim BugID
dim today
today=date()
toyear=year(today)
toyear=toyear*10000
tomonth= month(today)
tomonth=tomonth*100
tonow=day(today)
Serialnum = toyear + tomonth + tonow
Serialnum = Serialnum*10000+1

set rs = Server.CreateObject("ADODB.recordset")
sql = "select top 1 * from buglist order by SubmitDate desc"
rs.open sql,conn,1,3
if not rs.eof then
Dim OldSerialnum
OldSerialnum = Rs("BugID")
OldSerialnum = right(OldSerialnum,12)
Serial = right(Serialnum,12)
if OldSerialnum - Serial >= 0 then
Serialnum = OldSerialnum + 1
end if
end if
BugID = "ES"&request("ProductVersion")&Serialnum

34. 響應回車

function getdata(what,whatid)
{
if (event.keyCode==13)
……
<input name="SerialNum<%=i%>" type="text" onKeyDown="getdata(window.form1.SerialNum<%=i%>.value,<%=i%>)">

35. 關閉窗口前刷新父頁面

response.write "<script language = javascript>"
response.write "javascript:opener.location.reload(); "
response.write "javasript:window.close();</script>"

36. JS 事件

事件 / 描述

onblur 事件發生在窗口失去焦點的時候。
onchange 事件發生在文本輸入區的內容被更改，然后焦點從文本輸入區移走之后。
onclick 事件發生在對象被單擊的時候。
onerror 事件發生在錯誤發生的時候。
onfocus 事件發生在窗口得到焦點的時候。
onload 事件發生在文檔全部下載完畢的時候。
onmousedown 事件發生在用戶把鼠標放在對象上按下鼠標鍵的時候。參考 onmouseup 事件。
onmouseout 事件發生在鼠標離開對象的時候。參考 onmouseover 事件。
onmouseover 事件發生在鼠標進入對象范圍的時候。
onmouseup 事件發生在用戶把鼠標放在對象上鼠標鍵被按下的情況下，放開鼠標鍵的時候。
onreset 事件發生在表單的“重置”按鈕被單擊（按下并放開）的時候。
onresize 事件發生在窗口被調整大小的時候。
onsubmit 事件發生在表單的“提交”按鈕被單擊（按下并放開）的時候。
onunload 事件發生在用戶退出文檔（或者關閉窗口，或者到另一個頁面去）的時候。
onSelect 當 Text 或 Textarea 對象中的文字被加亮后，引發該事件。
onFocus 當用戶單擊 Text 或 textarea 以及 select 對象時，產生該事件。
onBlur 當 text 對象或 textarea 對象以及 select 對象不再擁有焦點、而退到后臺時，引發該文件 .
onDragDrog 拖放時發生
onLoseCapture
onDblClick 鼠標雙擊事件
onKeyPress 當鍵盤上的某個鍵被按下并且釋放時觸發的事件 .[ 注意 : 頁面內必須有被聚焦的對象 ]
onKeyDown 當鍵盤上某個按鍵被按下時觸發的事件 [ 注意 : 頁面內必須有被聚焦的對象 ]
onKeyUp 當鍵盤上某個按鍵被按放開時觸發的事件 [ 注意 : 頁面內必須有被聚焦的對象 ]
onAbort 圖片在下載時被用戶中斷
onBeforeUnload 當前頁面的內容將要被改變時觸發的事件
onMove 瀏覽器的窗口被移動時觸發的事件

37. 自動最大化

function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}

38. 幾個 SQL 技巧

SELECT Area,Territory,username,sum(dealqty) DealQty,count(Projectnum) ProjectQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRT FROM VW_PreviewTerritory where username = ' 段龍義 ' group by area,Territory,username
只要把不需要統計的東西分組就可以了。

select area,count(projectnum) TotalProjectQty,sum(DealQty) TotalDealQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRTQty from vw_previewProject where username = 'admin' group by area
這個也是一樣，記住： count() 只是計數，不管這個字段值是多少。 sum() 是求和，把所有加在一起。

39. Eval 用法

eval("ProducingArea"+i+".style.display = 'none' ;");
單引號不影響
eval("if((window.form1.ProductBaseType"+i+".value!='' && window.form1.ProductBaseType"+(i+1)+".value =='')==true);");
// 錯誤！
if(eval("window.form1.ProductBaseType"+i+".value!='' && window.form1.ProductBaseType"+(i+1)+".value ==''")==true)
// 以后記得凡是有 if 判斷的，把 eval("") 寫在里面，就比較好！
if(confirm(eval("' 確信要在 '+window.form1.ProductBaseType"+(i)+".value+' 后添加子類？ '")))

40. 窗口關閉之前

41. 標準表格

***************

* 這個是標題

***************

<tr>

</td>

</tr>

</table>

***************

* 這個是橫線

***************

<tbody>

<tr>

<td>

</td>

</tr>
<tr class="linecolor">

</tr>
<tr>

</tr>

</tbody>

</table>

***************

* 這個是表格

***************

<tbody>

</tr>

</tbody>

</table>

邊框 \ 填充 = 0

間隔＝ 1

底色 = #d0d090

42. 這也行

for i=2 to num

BaseTypeAllPArr = request("BaseType"&i&"P"&jLoop)&":"&BaseTypeAllPArr

response.Write " OOOO "&request("BaseType"&i&"P"&jLoop)&" OOOO <br>"
next

43. 標準注釋頭

'' ******************************************************************

'' 文件名 :

'' 功能描述 : 產品編輯

'' 參數

'' 牽涉數據表，視圖，存儲過程：自定義函數 dbo.GetSubTreeinfo

margin: 0cm 0cm 0pt;

分享到：

[ASP開發]論壇中怎樣才能使一個用戶名在線 ... | [ASP代碼]網頁簽名小程序

2005-10-09 16:03
瀏覽 216
評論(0)
相關推薦

發表評論

您還沒有登錄,請您登錄后再發表評論

[ASP代碼]ASP開發技巧集錦(1-4)

更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索：z360901061

微信掃一掃加我為好友

QQ號聯系： 360901061

您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。

【本文對您有幫助就好】元

2元

5元

10元

20元

自定義

欧美三区_成人在线免费观看视频_欧美极品少妇xxxxⅹ免费视频_a级毛片免费播放_鲁一鲁中文字幕久久_亚洲一级特黄

評論

發表評論