ASP开发44条技巧

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控制图片显示的大小（等比例缩放）

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="Ｓelect * from PasswordConfig where companyid='"&session("CompanyID")&"'"
objRst.Open objsql,objCon,1,3

6. html格式邮件发送

HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "

"
HTML = HTML & "This is a test mail in html
"
HTML = HTML & "Mail content here ...

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 %> ‘ 这里有个大问题，下文再说

<%else%>


<%end if%>

11. 报错并返回
 
if rs.bof and rs.eof then  ‘还是有问题
response.write""
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。

 
12. 从VBS到JS，混用
 
   <%
   dim checkpwdconfig    
   checkpwdconfig=split(addation,"/")
   %>
  
 
13. 弹出窗口
 

用一个连接调用：
请修改密码 onClick="openaddnew()"
图片调用：
.gif"  onClick="openaddnew()">
 
14. 分页
 

<%
if request("pageno")<>"" then
    pageno=int(request("pageno"))
else
 pageno=1
end if
sql="Ｓelect * 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%>条
  首页
  <%if pageno>1 then%>
  上一页
  <%
  end if
  if int(pageno)<>int(rs.pagecount)then
%>
  下一页
  <%end if%>
  尾页
  <%rs.close%>
  <%
call CloseConn()
%>
15. 数据库更新
  sql="Ｓelect * 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. 极细表格
 

21. 嵌入另一页

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用

22. 全部选定

引用：
选中本页显示的所有

小格：
">

23. 如何处理页面执行时发生的错误？

<%@ LANGUAGE="VBScript" %>
<%
      Response.Buffer = True ' 打开页面缓冲
      On Error Resume Next  ' 打开错误处理
      …………' ASP代码
%>

<%
      If Err.Number <> 0 Then  ' 错误处理
      Response.Clear  ' 清除缓冲区
%>

' 显示错误信息页面

页面错误报告