|
初来乍到
注册用户 - 帖子
- 1
- 精华
- 0
- 积分
- 2
- 在线时间
- 0 小时
|
楼主贴
大 中
小 发表于 2006-9-28 16:37 只看该作者
个人做网站的一些经验与技巧，欢迎进来讨论
个人做网站的一些经验与技巧，欢迎进来讨论
) I# |: n1 t6 ^0 \; O" V% Q9 Q
/ C! X0 U4 P- i! Y1 x/ R1.几个常用函数
. o* U9 ]) U: z4 V C; }0 m: k# w A4 FRound(pi, 2) 四舍五入
* m' Z9 u- m* |+ I
1 v2 d- K* z: ]+ {7 JFormatNumber(k,4) ' 把 k 格式化为带四位小数点的数。
$ ], f4 u1 L- z5 S1 c- x# p! Geg. 如果k =20000则显示为20,000.00；如果把formatnumber(k,0)则为20,000
* V9 A5 {/ c4 [( M5 p$ |
* Z7 q( R& s7 K- JReplace(expression,find,replacewith) '返回一字符串，其中指定的子串已被另一个子串替换
: ~; d' H; \7 a9 G5 `3 d1 h) ?0 u5 z; _
Left(String,Length) '返回指定数目的从字符串的左边算起的字符串。 * K8 R9 Z& {$ d" G2 @( N6 D
" Y' S K/ V7 f9 H& w+ xSplit(expression[, delimiter[, count[, start]]]) '返回基于 0 的一维数组，其中包含指定数目的子字符串。
* m2 W8 X6 g! D, o9 x) reg. 常用这个 Split(String,[delimiter]) ' 用delimiter(用于标识子字符串界限的字符)来划分字符串
: p0 w" T9 y. Q8 _; ?' Y$ @! @( A' z8 K
Instr(String1,String2) '返回某字符串在另一字符串中第一次出现的位置 * @* g3 G: P! [) h' Y: W! e
eg1. if instr(addation,"密码配置表")<>0 then '说明存在
6 `( z: V$ G; ~eg2. if instr(str,”AP”) >0 不好区分str = (AP,AP&AC),此时只要变为（’AP’,’AP&AC’）,再用instr(str,”’AP’”)
: O, B5 n$ d3 a2. 弹出窗口Pick值
6 C3 x2 n' d: s2 ^% b; v) Q
( _( Q! }) T! D* Nfunction pickupSP(spdisid,pjnum,pdcode)
7 b% {8 q9 X' K _1 q{ - S" I" D: ^& U C5 M
window.opener.<%=theForm%>.RefNum<%=Spid%>.value=spdisid;
$ g6 Y$ V( m+ W; C7 H$ k/ Wwindow.opener.<%=theForm%>.LineS<%=Spid%>.value=pjnum;
6 v" H% E9 S% _; v8 Q, r3 @& Lwindow.opener.<%=theForm%>.kokey<%=Spid%>.value=pdcode; 4 G9 p6 R" v, @6 m( _
window.close();
5 o. R2 O* O! ]0 s} 3 Q6 Z" s0 v- g2 N$ L
3. ASP控制图片显示的大小（等比例缩放）
2 E! ]9 D! i$ |2 a6 {<HTML>
- {2 F5 d8 h' F3 C6 I<HEAD>
& C0 w8 o$ h$ X5 I! X3 C0 e7 Y<TITLE> New Document </TITLE> : m1 `/ G+ R: l" m! J0 H
<script language="JavaScript"> " C6 j$ c! S( O- d
<!-- ! W# O- {' u) X+ f
var flag=false;
) C4 I% g7 ]% v! L0 O% Vfunction DrawImage(ImgD){ ! q& r* W9 S8 b4 g$ s8 e. _; U* g" E# f
var image=new Image(); 1 x7 U7 {3 q( R- F
image.src=ImgD.src;
7 ^- v! P! ^, w! }" P: ~7 wif(image.width>0 && image.height>0){
$ G+ e8 l% \- n' ]# mflag=true;
1 Y9 o3 |0 l+ f# ]5 Eif(image.width/image.height>= 164/112){
2 c9 ^% @2 B- k5 V% `( D" qif(image.width>164){
$ w) b' e. J$ H/ Q) ^ImgD.width=164;
; j2 V9 d0 u) `# ?ImgD.height=(image.height*164)/image.width;
% i! z4 d$ _6 R5 Z& E+ D9 a}else{ , a4 Y5 \% C Y) O
ImgD.width=image.width;
' x9 E$ U( W/ I1 }8 x4 KImgD.height=image.height;
6 Z1 _& n1 ]/ k% \} ! X t5 H* L5 V* D2 q$ E
ImgD.alt=image.width+"x"+image.height; ; _0 \, w# S3 J
} 8 Y% J# j& i2 ~% K* v& B
else{
8 B: ~. R9 E2 K) O; yif(image.height>112){
. [" ~8 X; B3 [4 {ImgD.height=112;
- M! |4 H+ c" o/ Y; `& Y0 M4 WImgD.width=(image.width*112)/image.height; * @3 ]$ P2 I+ O1 @) C6 J
}else{
5 ^5 q% q6 _1 F0 m( i4 {ImgD.width=image.width; 2 x; G& S; p: R* F6 {1 F
ImgD.height=image.height;
l! S; O" A8 h; `8 u) Z5 D}
7 g# K( P* B! p+ BImgD.alt=image.width+"x"+image.height; $ g1 H5 k4 A+ ^7 u+ Z8 t
} ) l7 {& O" `' y f
} ! q2 K& B d) \* T5 w! M0 |5 e
} & g2 C, ?, q+ a6 |! [- `
//-->
$ T7 T1 l% d2 v1 ~7 P( ^" x</script> : g3 M: K) l6 Y
</HEAD> 5 I u N7 U0 ^
<BODY>
. M8 c' _8 p2 G+ Z<a href="./img.jpg" target="_blank"><img src="./img.jpg" border="0" width="164" height="112" onload="javascript rawImage(this);"></a>
/ ~! C4 ^. g' h) c</BODY>
% B( [- ]5 t0 P1 i</HTML>
! H3 }0 i! x5 D4. ASP中对数据库表的操作(INSERT/UPDATE/DELETE),可使用事务处理,并支持多事务处理. / k* |* ?4 b7 M7 Q
在ASP的数据库对象链接对象中,提供了一下属性: t. Z! G- [9 ]3 N- ?- r ^
BeginTrans 事务开始
& c, {) S$ w7 ~$ @3 l, f8 YCommitTrans 事务提交
, Q- B* K) Z; {5 x7 x5 \8 ERollbackTrans 事务回滚
" B* {4 V w! u" u$ L; `3 T! ?<%
7 j# @7 F" w9 pOn Error Resume Next ’错误发生后继续处理
: m4 c, Z( d. P" l8 Q'Asp中使用事务 ! C% S0 l+ V, D a+ k+ h* q
Set conn=Server.CreateObject("ADODB.Connection") 1 R/ x; ~8 A$ m' i: `. B: E
conn.Open "course_dsn","course_user","course_password"
$ l& \; C( o! F' |( c- K3 l% fconn.begintrans '开始事务
* }5 B5 }! t; `7 Wsql="delete from user_info"
/ I5 W5 y" A B6 x' [ kset rs=server.createobject("adodb.recordset")
) ?/ x% c& k8 x& Ars.open sql,conn,3,3 4 U* p5 R* `. k& o3 k. q
if conn.errors.count>0 then '有错误发生
. \9 ]9 N- F/ m" Vconn.rollbacktrans '回滚
1 H1 L- G! e9 Vset rs=nothing x- D7 H! @9 T9 I6 ]+ k; W
conn.close - j8 Z p: v5 H" {
set conn=nothing
% r) x/ Z- o+ z( t" P0 Tresponse.write "交易失败，回滚至修改前的状态！"
) C: _- h; E: Z& Zresponse.end 1 T( T% {" a$ J& U- E
else ; w r$ }$ g: u! ^ r, c
conn.committrans '提交事务 " s( Z# j4 e1 z$ g% Z' V, I K
set rs=nothing 2 X6 q* k, _ j" K* Y2 Z/ M! H4 X# k
conn.close ; b0 C5 D- ^$ K0 T
set conn=nothing : a# l% a9 S9 `
response.write "交易成功！"
5 f$ b4 ]! l' i5 k0 u( Zresponse.end 3 C. S; f9 A# S$ m0 I
end if ; g# v# i7 C9 B' L; E
%>
* H; z# }( J9 g0 U1 ?在ASP中,不提供事务的结束,BeginTrans只作用于自己的域,类似于变量声明一样,如果在函数体内BeginTrans,则事物只作用于本函数体,如果BeginTrans在函数体外,处于页面级,则事务的作用域从BeginTrans开始,到页面的结束均处于事务的管理状态下.
+ l! m6 o A4 D8 `: \2 B
& Q8 Y _: Y& [' I! `介绍一款支持ASP/ASP2.0的虚拟主机给你们！我用的是时代互联新出驴的商务智强型C，高速稳定，功能也强大!毕竟他们刚荣获2006年互联网服务行业客户满意十佳品牌称号！现在还送优惠券!非常不错,大家可申请试试，免费送域名,DNS轮循，繁简通，加速器！有需要可到:http://www.*******/vhost" l- C; _1 V* y* B9 _
& m9 F2 ?9 M- u* {$ }
) C6 R8 ?+ l0 J4 T; N
|
