>> 欢迎您,客人登录 按这里注册 忘记密码 在线 搜索 论坛风格  帮助  插件   


>>> 网站建设指南:网站建设、运营、推广指南,网上创业全攻略,网页制作经典教程,理论+实例+指导...一切尽在其中!
原创综合社区〖 网站建设 〗 [返回] → 浏览:ASP开发技巧集锦 标记论坛所有内容为已读 

 目前论坛总在线 359 人,本主题共有 1 人浏览。其中注册用户 0 人,访客 1 人。  [关闭详细列表]

原创综合社区教堂开通!   婚姻介绍中心开通!    原创综合社区礼品超市开通!  原创综合社区论坛博客开通

血与荣耀メ公会内部区申请 为我们论坛付出巨大贡献的人员的名单 宠物系统开放! 原创综合社区招贤纳士

发表一个新主题 回复贴子 开启一个新投票 ◆此帖被阅读 1569 次◆  浏览上一篇主题  刷新本主题  树形显示贴子 浏览下一篇主题
 * 贴子主题: ASP开发技巧集锦 不分页显示此帖  本贴有问题,发送短消息报告给版主  加入个人收藏&关注本贴  显示可打印的版本  把本贴打包邮递  把本贴加入收藏夹  发送本页面给朋友   
 linkbest365 





等级: 新手上路
信息: 该用户目前不在线 此人为认证用户
威望: 0 积分: 29
现金: 834 原创币
存款: 没开户
贷款: 没贷款
来自: 保密 blank
发帖: 11
精华: 0
资料:  
查阅的linkbest365物品箱
注册: 2008/06/26 01:47pm
造访: 2008/07/25 04:25pm
消息 查看 搜索 好友 引用 回复贴子回复 只看我 [楼 主]
  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控制图片显示的大小(等比例缩放)

  

  

  

  
代码:
Jc`H~
<script language=Javascript>   k
    

Gbkh>




  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 = HTML & ""


  HTML = HTML & "type="text/css">"

  HTML = HTML & ""

  HTML = HTML & ""


  HTML = HTML & " GkMmP+
©原创综合社区 -- 时尚的人生,选择时尚的装束;运动的天才,选择适合的场地;精典的影视,原创的游戏,原创的享受,当然要选择原创论坛。不要犹豫,就是她--: http://www.9ibbs.com 锁定她!~!~!~!  0j
"

  HTML = HTML & "This is a test mail in html
"

  HTML = HTML & "Mail content here ...

"


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

 
代码:
 




 
代码:
 <%else%>



  
代码:


tU"





CN域名续费1元起,COM域名55元!游戏公会购买COM域名送空间!学生购买域名30元100M!LEO的HACK作者购买空间五折优惠!www.linkbest365.com



CN域名续费1元起,COM域名55元!游戏公会购买COM域名送空间!学生购买域名30元100M!

原创综合社区广告位置
发贴时间2008/07/12 11:18am IP: 已设置保密加入blog[本文共9486字节]  
 linkbest365 





等级: 新手上路
信息: 该用户目前不在线 此人为认证用户
威望: 0 积分: 29
现金: 834 原创币
存款: 没开户
贷款: 没贷款
来自: 保密 blank
发帖: 11
精华: 0
资料:  
查阅的linkbest365物品箱
注册: 2008/06/26 01:47pm
造访: 2008/07/25 04:25pm
消息 查看 搜索 好友 引用 回复贴子回复 只看我 [第 2 楼]
 

ASP开发技巧集锦(2)

11. 报错并返回

  if rs.bof and rs.eof then ‘还是有问题

  response.write"z&
<script language=Javascript>alert('找不到!');"

  response.write"javascript:history.go(-1) "

  end if

  -----------------------------------

  这个是跳转。

  V@8
<script language=javascript>

  alert('<%=intOperationInfo%>');

  window.navigate('ChangePwd.asp');

  



  12. 从VBS到js,混用

  <%

  dim checkpwdconfig

  checkpwdconfig=split(addation,"/")

  %>

  S
<script language=javascript>

  alert("<%=checkpwdconfig(0)%>")

  


  13. 弹出窗口

  i5K
<script language=javascript>

  function openaddnew()

  {

  subWindow=window.open("../Edit/PasswordConfigEdit.asp?method=new",'','scrollbars=yes,left=120,top=60,height=250,width=500,
menubar=no,location=no,toolbar=no,resizable=yes','')

  subWindow.opener = this;

  }

  

  用一个连接调用:

  请修改密码 onClick="openaddnew()"

  图片调用:

  .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%>条

  首页

  <%if pageno>1 then%>

  上一页

  <%

  end if

  if int(pageno)<>int(rs.pagecount)then

  %>

  下一页

  <%end if%>

  尾页

  <%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. 极细表格

   width="32" height="32" bordercolorlight="#000000"
bordercolordark="#FFFFFF">

  

  

  

  
 






  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. 判断浏览器

Nt





CN域名续费1元起,COM域名55元!游戏公会购买COM域名送空间!学生购买域名30元100M!LEO的HACK作者购买空间五折优惠!www.linkbest365.com


原创综合社区广告位置
发贴时间2008/07/12 11:19am IP: 已设置保密加入blog[本文共7641字节]  
 linkbest365 





等级: 新手上路
信息: 该用户目前不在线 此人为认证用户
威望: 0 积分: 29
现金: 834 原创币
存款: 没开户
贷款: 没贷款
来自: 保密 blank
发帖: 11
精华: 0
资料:  
查阅的linkbest365物品箱
注册: 2008/06/26 01:47pm
造访: 2008/07/25 04:25pm
消息 查看 搜索 好友 引用 回复贴子回复 只看我 [第 3 楼]
  小格:

  ">


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

  <%@ LANGUAGE="VBscript" %>

  <%

  Response.Buffer = True ' 打开页面缓冲

  On Error Resume Next ' 打开错误处理

  …………' ASP代码

  %>


  <%

  If Err.Number <> 0 Then ' 错误处理

  Response.Clear ' 清除缓冲区

  %>


  ' 显示错误信息页面

  

  

  


  

  

   ARv`&-
©原创综合社区 -- 时尚的人生,选择时尚的装束;运动的天才,选择适合的场地;精典的影视,原创的游戏,原创的享受,当然要选择原创论坛。不要犹豫,就是她--: http://www.9ibbs.com 锁定她!~!~!~!  :zldg
页面错误报告




  错误号:<%= Err.Number %>


  错误描述:<%= Err.Description %>


  错误源:Source <%= Err.Source %>


  错误发生行:<%= Err.Line %>


  

  

  <%

  End If

  %>

  24. 收藏夹图标.


  在 HEAD 部分加入下面的内容:

  


  在地址栏加入图标(图标必须是.ico格式,并且要加入收藏后才有效)

  在HEAD里加入


  25. 校验提交表单(正则表达式应用)

  M$
<script language=Javascript>

  

  


  统一一下,以后都这样写

  <form action="Checkreg.asp" name="myform" method="POST">

  


  
8Exa<@





CN域名续费1元起,COM域名55元!游戏公会购买COM域名送空间!学生购买域名30元100M!LEO的HACK作者购买空间五折优惠!www.linkbest365.com


原创综合社区广告位置
发贴时间2008/07/12 11:21am IP: 已设置保密加入blog[本文共5426字节]  

 该主题只有一页

快速回复主题: ASP开发技巧集锦
您目前的身份是: 客人 ,要使用其他用户身份,请输入用户名和密码。未注册客人请输入网名,密码留空。
输入用户名和密码: 用户名: 没有注册? 密码: 忘记密码?
上传附件或图片 (最大容量 2500KB)
发帖数要大于 10 篇(认证用户不限)

目前附件:(如不需要某个附件,只需删除内容中的相应 [UploadFile ...] 标签即可) [删除]
选项  插入魔法表情

使用 LeoBBS 标签?
显示您的签名?
有回复时使用邮件通知您?
使用表情字符转换?
使用字体转换?

    快速引用第 楼层的回复
 顶端 加到"个人收藏夹" 主题管理总固顶 取消总固顶 区固顶 取消区固顶 固顶 取消固顶 提升 沉底
加重 取消加重 精华 取消精华 锁定 解锁 删除 删除回复 移动



© 中文版权所有:原创论坛|原创综合社区|与你相随    豫ICP备05000285号   津ICP备05003280号
程序版权所有:山鹰(糊)、花无缺  版本:LeoBBS X Plus 5.00
 

本论坛言论纯属发表者个人意见,与 原创综合社区 立场无关