亚洲精品国产高清不卡在线,国产国拍精品亚洲AV片,久久久久久A亚洲欧洲AV冫

dyok — Thu, 14 Jun 2007 06:00:00 GMT

XMLHTTP应用参�?
一、��用步骤：
1、创建XMLHTTP对象 //需MSXML4.0支持
2、打开与服务端的连接，同时定义指��o发送方式，服务�|�页(URL)和请求权限等。客��L��通过Open命��o打开与服务端的服务网��늚��q�接。与普通HTTP指��o传送一��P��可以�?GET"�Ҏ��?POST"�Ҏ��指向服务端的服务�|�页�?
3、发送指令�?
4、等待�ƈ接收服务端返回的处理�l�果�?
5、释放XMLHTTP对象

二、XMLHTTP�Ҏ��Q?
1、XMLHTTP对象
备注�Q�客��h��可以使用XMLHTTP对象发送�Q意的HTTP��h��,接受HTTP应答,�q�可以对应答的XML文档�q�行解析�?

Open�Ҏ��Q�初始化一个Msxml2.XMLHTTP��h��Q�指定HTTP��h��方式、URL以及鉴定信息�?
Open�Q?bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword �Q?
bstrMethod�Q?数据传送方式，即GET或POST�?
bstrUrl�Q?服务�|�页的URL�?
varAsync�Q?是否同步执行。缺省�ؓTrue�Q�即同步执行�Q�但只能在DOM中实施同步执行。用中一般将其置为False�Q�即异步执行�?
bstrUser�Q?用户名，可省略�?
bstrPassword�Q�用户口令，可省略�?

Send�Ҏ��Q�发送HTTP��h��到服务器�Q�返回应�{��?
语法�Q?
oXMLHttpRequest.send(varBody)
说明�Q�此�Ҏ��是否同步取决于Open�Ҏ��的varAsync参数。如果设为True则�ؓ同步�Q�调用立刻返回，如果设�ؓFalse调用直到整个应答被接收了才返回�?

setRequestHeader�Q?bstrHeader, bstrvalue �Q?
bstrHeader�Q�HTTP �?header)
bstrvalue�Q?HTTP �?header)的�?

如果Open�Ҏ��定义为POST�Q�可以定义表单方式上传：
xmlhttp.setRequestHeader�Q?"Content-Type", "application/x-www-form-urlencoded"�Q?

三、XMLHTTP属性：
onreadystatechange�Q�在同步执行方式下获得返回结果的事�g句柄。只能在DOM中调用�?
responseBody�Q?�l�果�q�回为无�W�号整数数组�?
responseStream�Q?�l�果�q�回为IStream��?
responseText �Q?�l�果�q�回为字�W�串�?
responseXML�Q?�l�果�q�回为XML格式数据�?

四、示例：

代码片段

< script language="javascript" >  
function getDatal(url){  
var xmlhttp 
= new ActiveXObject("MSXML2.XMLHTTP.4.0";//创徏XMLHTTPRequest对象�Q�需MSXML4.0�?
�?nbsp;["MSXML2.XMLHTTP.4.0","MSXML2.DOMDocument.4.0"]  
xmlhttp.open("GET",url,false,"",""; //使用HTTP GET初始化HTTP��h��  
xmlhttp.send(""; //发送HTTP��h���q�获取HTTP响应  
return xmlhttp.responseXML; //获取XML文档  
}  
< /script > 

　　现在�|�上��行的小��L��序比较多�Q�有新闻�c�d��P��音乐��偷�Q�下载小��P��那么它们是如何做的呢�Q�下面我来做个简单介�l�，希望对各位站长有所帮助�?

�Q�一�Q�原�?
　　��偷�E�序实际上是通过了XML中的XMLHTTP�l��g调用其它�|�站上的�|�页。比如新��d��L��序，很多都是调用了sina�? 新闻�|�页�Q��ƈ且对其中的html�q�行了一些替换，同时对广告也�q�行了过滤。用��偷�E�序的优�Ҏ��Q�无��ȝ��护网站，因�ؓ��偷�E�序中的数据来自其他�|�站�Q�它��随着该网站的更新而更斎ͼ�可以节省服务器资源，一般小��L��序就几个文�g�Q�所有网��内定w��是来自其他网站。缺�Ҏ��Q�不�E�_��Q�如果目标网站出错，�E�序也会出错�Q? 而且�Q�如果目标网站进行升�U�维护，那么��偷�E�序也要�q�行相应修改�Q�速度�Q�因为是�q�程调用�Q�速度和在本地服务器上��d��数据比�v来，肯定要慢一些�?

�Q�二�Q�事�?

下面��XMLHTTP在ASP中的应用做个��单说�?

代码:

代码片段

<%  
’常用函数  

’1、输入url目标�|�页地址�Q�返回值getHTTPPage是目标网��늚�html代码  
function getHTTPPage(url)  
dim Http  
set Http=server.createobject("MSXML2.XMLHTTP"  
Http.open "GET",url,false  
Http.send()  
if Http.readystate<>4 then  
exit function  
end if  
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312"  
set http=nothing  
if err.number<>0 then err.Clear  
end function  

’2、�{换�ؕ玛，直接用xmlhttp调用有中文字�W�的�|�页得到的将是�ؕ玛，可以通过adodb.stream�l��g�q�行转换  
Function BytesToBstr(body,Cset)  
dim objstream  
set objstream = Server.CreateObject("adodb.stream"  
objstream.Type = 1  
objstream.Mode =3  
objstream.Open  
objstream.Write body  
objstream.Position = 0  
objstream.Type = 2  
objstream.Charset = Cset  
BytesToBstr = objstream.ReadText  
objstream.Close  
set objstream = nothing  
End Function  

’下面试着调用http://www.998w.net/class/的html内容  
Dim Url,Html  
Url="http://www.998w.net/class/"  
Html = getHTTPPage(Url)  
Response.write Html  
%>

------------------------------------------------------
代码:
'代码]用XMLHTTP��d��q�程文�g

代码片段

<%  
Response.Buffer = True  
Dim objXMLHTTP, xml  
Set xml = Server.CreateObject("Microsoft.XMLHTTP"  

xml.Open "GET", "http://www.998w.net/down/998w1.0.rar", False  

xml.Send  

’ Add a header to give it a file name:  
Response.AddHeader "Content-Disposition", _  
"attachment;filename=mitchell-pres.zip"  

’ Specify the content type to tell the browser what to do:  
Response.ContentType = "application/zip"  

’ Binarywrite the bytes to the browser  
Response.BinaryWrite xml.responseBody  

Set xml = Nothing  
%> 

-------------------------------------
如何写ASP入库��偷�E�序
　　入库��偷的原理也很简单：��是用XMLHTTP�q�程��d��|�页的内容，然后�Ҏ��需要，对读到的内容�q�行加工�Q�过滤，替换�Q�分�c�）�Q�最后得到自己需要的数据�Q�加入到数据库中�?
首先�Q�我们先用XMLHTTP��d��q�程�|�页�Q�我的另一片文章中有介�l�）�?
其次�Q�对内容�q�行�q��o�Q�这个是比较关键的步骤，比如��_��我要从远�E�网��上提取出所有url�q�接�Q�我应该怎么做呢�Q?
代码:
‘�q�里用的是正则式

代码片段

Set objRegExp = New Regexp ’建立对象  
objRegExp.IgnoreCase = True ’大小写忽�?nbsp; 
objRegExp.Global = True ’全局为真  
objRegExp.Pattern = "http://.+?" ’匚w��字段  
set mm=objRegExp.Execute(str) ’执行查找�Q�str�����入参�?nbsp; 
For Each Match in mm ’�q�入循环  
Response.write(Match.Value�Q?nbsp;’输出url地址  
next 

然后�Q�我们需要根据需要做一些替换功能，把不必要的数据替换掉�Q�这个比较简单，用Replace函数卛_��?
最后，�q�行数据库操�?
-------------------------------
一个例�?
代码:

代码片段

<%  
On Error Resume Next  
Server.ScriptTimeOut=9999999  
Function getHTTPPage(Path)  
t = GetBody(Path)  
getHTTPPage=BytesToBstr(t,"GB2312"  
End function  

’
首先�Q�进行小��L��序的一些初始化讄����Q�以上代码的作用分别是忽略掉所有非致命性错误，把小��L��序的�q�行���时旉���讄���得很长（�q�样不会出现�q�行���时的错
误）�Q��{换原来默认的UTF-8�~�码转换成GB2312�~�码�Q�否则直接用XMLHTTP�l��g调用有中文字�W�的�|�页得到的将是�ؕ码�?nbsp; 

Function GetBody(url)  
on error resume next  
Set Retrieval = CreateObject("Microsoft.XMLHTTP"  
With Retrieval  
.Open "Get", url, False, "", ""  
.Send  
GetBody = .ResponseBody  
End With  
Set Retrieval = Nothing  
End Function  

’然后调用XMLHTTP�l��g创徏一个对象�ƈ�q�行初始化设�|��?nbsp; 

Function BytesToBstr(body,Cset)  
dim objstream  
set objstream = Server.CreateObject("adodb.stream"  
objstream.Type = 1  
objstream.Mode =3  
objstream.Open  
objstream.Write body  
objstream.Position = 0  
objstream.Type = 2  
objstream.Charset = Cset  
BytesToBstr = objstream.ReadText  
objstream.Close  
set objstream = nothing  
End Function  

Function Newstring(wstr,strng)  
Newstring=Instr(lcase(wstr),lcase(strng))  
if Newstring<=0 then Newstring=Len(wstr)  
End Function  

’处理抓取回来的数据需要调用adodb.stream�l��g�q�进行初始化讄����?> 

'以下即�ؓ��面昄��部分

代码片段

<%  
Dim wstr,str,url,start,over,city  
’定义一些需要��用到的变�?nbsp; 

city = Request.QueryString("id")  
’�E�序传回的ID变量�Q�即用户选择的城市）赋给id  

url="http://appnews.qq.com/cgi-bin/news_qq_search?city="&city&""  
’�q�里讄���需要抓取的��面地址�Q�当然你也可以直接指定某个地址而不使用变量  

wstr=getHTTPPage(url)  
’获取指定��面的全部数�?nbsp; 

start=Newstring(wstr," ")  
’�q�里讄���需要处理的数据的头部，�q�个变量应视不同情况而设�|�，具体内容可以通过查看需要抓取的��面的源代码来确定。因为在�q�个�E�序里我们需要抓取整个页�?所以设�|��ؓ��面全部抓取。注意，讄���的内容必���L����面内容唯一的，不可以重复�?nbsp; 

over=Newstring(wstr," ")  
’和start相对应的���是需要处理的数据的尾部，同样的，讄���的内容必���L����面中唯一的�?nbsp; 

body=mid(wstr,start,over-start)  
’讄���昄�����面的范�?nbsp; 

’下面���是动用乑֝�挪移大法的时候了�Q�通过replace可以用一些字�W�替换掉数据中指定的字符�?nbsp; 

body = replace(body,"skin1","天气预报 - 斯克�|�络")  
body = replace(body,"http://appnews.qq.com/cgi-bin/news_qq_search?city","tianqi.asp?id")  

’本程序中已经完成了替换的工作�Q�如果有其他需要的话可以���l�进行类似的替换操作�?nbsp; 

response.write body  
%>

dyok 2007-06-14 14:00 发表评论

怀念从前之-----ASP开发技巧集锦四

dyok — Fri, 20 Apr 2007 00:51:00 GMT

31. ��认操作
function ConfirmDel()
{
      if(confirm("��定要删除吗�Q�一旦删除将不能恢复�Q?))
         return true;
      else
         return false;
}

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

我自��q��的一个�?br>function ConfirmReset()
{
      if(confirm("��定取消操作吗？一旦取消操作将不能恢复�Q?))
      window.form1.reset();
      // return true;
}

32. indexOf() 用法

<字符串对�?gt;.indexOf(<另一个字�W�串对象>[, <起始位置>])�Q?br>

该方法从<字符串对�?gt;中查�?lt;另一个字�W�串对象>�Q�如果给�?lt;起始位置>��忽略之前的位置�Q�，如果扑ֈ�了，��p��回它的位�|�，没有扑ֈ��p��?#8220;-1”。所有的“位置”都是从零开始的�?br>eg. Str.indexOf(“AP”)>-1 说明str中存�?#8221;AP”字符�?br>

33. 生成��水�?br>

<%
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. 响应回�R

function getdata(what,whatid)
{
     if (event.keyCode==13)
     ……

35. 关闭�H�口前刷新父��面

response.write ""

36. JS事�g

事�g / 描述

onblur 事�g 发生在窗口失�ȝ��点的时候�?br>onchange 事�g 发生在文本输入区的内容被更改�Q�然后焦点从文本输入区移��C��后�?br>onclick 事�g 发生在对象被单击的时候�?br>onerror 事�g 发生在错误发生的时候�?br>onfocus 事�g 发生在窗口得到焦点的时候�?br>onload 事�g 发生在文档全部下载完毕的时候�?br>onmousedown 事�g 发生在用��h��鼠标攑֜�对象上按下鼠标键的时候。参�?onmouseup 事�g�?br>onmouseout 事�g 发生在鼠标离开对象的时候。参�?onmouseover 事�g�?br>onmouseover 事�g 发生在鼠标进入对象范围的时候�?br>onmouseup 事�g 发生在用��h��鼠标攑֜�对象上鼠标键被按下的情况下，攑ּ�鼠标键的时候�?br>onreset 事�g 发生在表单的“重置”按钮被单击（按下�q�放开�Q�的时候�?br>onresize 事�g 发生在窗口被调整大小的时候�?br>onsubmit 事�g 发生在表单的“提交”按钮被单击（按下�q�放开�Q�的时候�?br>onunload 事�g 发生在用户退出文档（或者关闭窗口，或者到另一个页面去�Q�的时候�?br>onSelect 当Text或Textarea对象中的文字被加亮后�Q�引发该事�g�?
onFocus 当用户单击Text或textarea以及select对象�Ӟ��产生该事件�?
onBlur 当text对象或textarea对象以及select对象不再拥有焦点、而退到后台时�Q�引发该文�g.
onDragDrog 拖放时发�?br>onLoseCapture
onDblClick 鼠标双击事�g
onKeyPress 当键盘上的某个键被按下�ƈ且释放时触发的事�?[注意:��面内必��L��被聚焦的对象]
onKeyDown 当键盘上某个按键被按下时触发的事件[注意:��面内必��L��被聚焦的对象]
onKeyUp 当键盘上某个按键被按攑ּ�时触发的事�g[注意:��面内必��L��被聚焦的对象]
onAbort 囄��在下载时被用户中�?
onBeforeUnload 当前��面的内容将要被改变时触发的事�g
onMove ��览器的�H�口被移动时触发的事�?br>

37. 自动最大化

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

38. 几个SQL技�?br>

Select Area,Territory,username,sum(dealqty) DealQty,count(Projectnum) ProjectQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRT   FROM VW_PreviewTerritory   where    username = '�D�龙�? group by area,Territory,username
只要把不需要统计的东西分组��可以了�?br>

select area,count(projectnum) TotalProjectQty,sum(DealQty) TotalDealQty,sum(TotalAmount) TotalAmountQty,sum(TotalPowerRT) TotalPowerRTQty from vw_previewProject where username = 'admin' group by area
�q�个也是一��P��C��Q�count() 只是计数�Q�不��这个字�D�值是多少。sum()是求和，把所有加在一赗��?br>

39. Eval用法

eval("ProducingArea"+i+".style.display = 'none' ;");
单引号不影响
eval("if((window.form1.ProductBaseType"+i+".value!='' && window.form1.ProductBaseType"+(i+1)+".value =='')==true);");
//错误�Q?br>if(eval("window.form1.ProductBaseType"+i+".value!='' && window.form1.ProductBaseType"+(i+1)+".value ==''")==true)
//以后记得凡是有if判断的，把eval("")写在里面�Q�就比较好！
if(confirm(eval("'��信要在'+window.form1.ProductBaseType"+(i)+".value+'后添加子�c�？'")))

40. �H�口关闭之前

function window_onbeforeunload(Projectnum)
{
    if (event.clientX > document.body.clientWidth && event.clientY < 0 )
    {
       var oXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP");
       oXMLHTTP.open("POST","CheckProjectDeal.asp?Projectnum="+Projectnum,false);
       oXMLHTTP.send();
       Str=unescape(oXMLHTTP.responseText);
       if (unescape(oXMLHTTP.responseText)!="YES")
       {
            window.event.returnValue="��目臛_��需要一个销售机会！";
        }
      }
}

41. 标准表格

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

* �q�个是标�?br>
***************




<%response.write Application("LProductManage"&session("LanguageId"))%>

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

* �q�个是横�U?br>
***************

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

* �q�个是表�?br>
***************

<%=application("Lstatus"&session("languageid"))%>	<%=application("LSaleStage"&session("languageid"))%>

�Ҏ��\填充 = 0

间隔 �Q?1

底色 = #d0d090

42. �q�也�?br>
for i=2 to num

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

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

43. 标准注释�?br>
'' ******************************************************************

'' 文�g�?

'' Copyright (c) 2001-2005 ××信息技术公司��Y仉��

'' 功能描述:产品�~�辑

'' 参数

'' 牉|��数据表，视图�Q�存储过�E�：自定义函数dbo.GetSubTreeinfo

'' 包含的文�?

'' 调用的公用函敎ͼ��c�，�Ҏ��

'' 创徏�?Kokey YU

'' 日　�? 2005-8-9

'' 修改�?

'' 日　�?

'' 修改说明:

'' 版　�?

'' ******************************************************************/

44. title换行

把鼠标放上来

dyok 2007-04-20 08:51 发表评论

怀念从前之-----ASP开发技巧集锦三

dyok — Fri, 20 Apr 2007 00:50:00 GMT

�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q?br>其实也可以用

22. 全部选定

引用�Q?br>选中本页昄��的所�?lt;/td>

��格�Q?br>">

23. 如何处理��面执行时发生的错误�Q?br>

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

<%
       If Err.Number <> 0 Then   ' 错误处理
       Response.Clear   ' 清除�~�冲�?br>%>

' 昄��错误信息��面

��面错误报告

��面错误报告

错误�?<%= Err.Number %>

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

错误�?Source <%= Err.Source %>

错误发生�?<%= Err.Line %>

<%
End If
%>

24. 收藏夹图�?

�?HEAD 部分加入下面的内�?

在地址栏加入图标（图标必须�?ico格式�Q��ƈ且要加入收藏后才有效�Q?br>在HEAD里加�?

25. 校验提交表单�Q�正则表辑ּ�应用�Q?br>

�l�一一下，以后都这样写

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

          asfasdf

<%
rs.movenext
end if
next
%>

27. 另一个只能输入数字代�?br>

28. 有选择昄��

function showco(va)
{
      if (va=="CO")
      {
              RefNum.style.display=''; //不再用这个可以直接用 block
              buttonsp.style.display='none';
       }
        if (va=="SP")
       {
               buttonco.style.display='none';
               buttonsp.style.display='';
               kokey.style.display='';
       }
        if (va=="Inventory")
       {
                RefNum.style.display='none'; //不显�C?br>                Reftr.style.display="block"; //昄��
        }

调用�Q?br>

选择昄��?也可以用

29. 调试参数昄��规范

Response.Write session("LoginCompanyId")&","&Date&","&Request.Form("Owner")&","&Request.Form("Name")&
//注意最后没�?只是在，之间�?," 其他�?amp;&引用卛_��
//也就是说只是�?nbsp; &","& 中间加一个逗号�Q�其他的该怎么写，��怎么�?br>Response.End

30. 从数据库填充下拉菜单

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

//以下是新�Ҏ��

dyok 2007-04-20 08:50 发表评论

怀念从前之----ASP开发技巧集锦二

dyok — Fri, 20 Apr 2007 00:49:00 GMT

11. 报错�q�返�?br>if rs.bof and rs.eof then   ‘�q�是有问�?br>response.write""
end if
�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q?br>�q�个是蟩转�?br>
12. 从VBS到JS�Q��؜�?br>    <%
    dim checkpwdconfig
    checkpwdconfig=split(addation,"/")
    %>

13. 弹出�H�口

用一个连接调用：
请修改密�?onClick="openaddnew()"
囄��调用�Q?br>.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
%>
==========================================
�?lt;%=rs.recordcount%>�?<%=pageno%>/<%=int(rs.pagecount)%>��?每页<%=rs.pagesize%>�?br>   首页
   <%if pageno>1 then%>
   上一��?lt;/a>
   <%
   end if
   if int(pageno)<>int(rs.pagecount)then
%>
   下一��?lt;/a>
   <%end if%>
   ��N��
   <%rs.close%>
   <%
call CloseConn()
%>
15. 数据库更�?br>   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. 关闭独立�H�口

17. 极细表格

18. 几个正则表达�?br>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应用�Q�控制字敎ͼ�
function title(str)
if len(trim(str))>=28 then
title=left(trim(str),27)&"..."
else
title=trim(str)
end if
end function
20. 判断��览�?br>

dyok 2007-04-20 08:49 发表评论

怀念从前之-------ASP开发技巧集锦一

dyok — Fri, 20 Apr 2007 00:48:00 GMT

1. 几个常用函数
Round(pi, 2) 四舍五入

FormatNumber(k,4) ' �?k 格式化�ؓ带四位小数点的数�?
eg. 如果k =20000则显�C�Zؓ20,000.00�Q�如果把formatnumber(k,0)则�ؓ20,000

Replace(expression,find,replacewith) '�q�回一字符�Ԍ��其中指定的子串已被另一个子串替�?

Left(String,Length) '�q�回指定数目的从字符串的左边��v的字�W�串�?

Split(expression[, delimiter[, count[, start]]]) '�q�回��Z�� 0 的一�l�数�l�，其中包含指定数目的子字符丌Ӏ?
eg. 常用�q�个 Split(String,[delimiter]) ' 用delimiter(用于标识子字�W�串界限的字�W?来划分字�W�串

Instr(String1,String2) '�q�回某字�W�串在另一字符串中�W�一�ơ出现的位置
eg1. if instr(addation,"密码配置�?)<>0 then '说明存在
eg2. if instr(str,”AP”) >0 不好区分str = (AP,AP&AC),此时只要变�ؓ�Q?#8217;AP’,’AP&AC’�Q?再用instr(str,”’AP’”)
2. 弹出�H�口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控制囄��昄��的大��（�{�比例羃放）

New Document

4. ASP中对数据库表的操�?Insert/Update/Delete),可��用事务处�?�q�支持多事务处理.
在ASP的数据库对象链接对象�?提供了一下属�?
BeginTrans 事务开�?
CommitTrans 事务提交
RollbackTrans 事务回滚
<%
On Error Resume Next ’错误发生后��l�处�?
'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 "交易��p�|�Q�回滚至修改前的状态！"
response.end
else
conn.committrans '提交事务
set rs=nothing
conn.close
set conn=nothing
response.write "交易成功�Q?
response.end
end if
%>
在ASP�?不提供事务的�l�束,BeginTrans只作用于自己的域,�c�M��于变量声明一�?如果在函��C��内BeginTrans,则事物只作用于本函数�?如果BeginTrans在函��C��?处于��面�U?则事务的作用域从BeginTrans开�?到页面的�l�束均处于事务的��理状态下.
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格式邮�g发�?
HTML = ""
HTML = HTML & ""
HTML = HTML & "Sending CDONTS Email Using HTML"
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "

"
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�Q�　
　　 Session["username"])="aa";
　　 Session("username")="aa" 　　
　　 ��d��一个SESSINN�Q?　　
　　 string username= Session["username"];　
　　 dim username=Session("username")　　
　　 Cookie与此用法大致相同
9. 几个VB中的常数
下列常数�?Visual Basic for Applications 中的�c�d��库定义，可用来在代码中的��M��地方代替实际��|��
常数 �{�于描述
vbCrLf Chr(13) + Chr(10) 回�R�W�与换行�W�结�?
vbCr Chr(13) 回�R�W?
vbLf Chr(10) 换行�W?
vbNewLine Chr(13) + Chr(10) �q�_��指定的新行字�W�；适用于当前��^�?
vbNullChar Chr(0) ��gؓ 0 的字�W?
vbNullString ��gؓ 0 的字�W�串用来调用外部�q�程�Q�与长度为零的字�W�串 ("") 不同
vbObjectError -2147221504 用户定义的错误号应当大于该��|��例如�Q?
Err.Raise Number = vbObjectError + 1000
vbTab Chr(9) Tab 字�?
vbBack Chr(8) 退格字�W?

10. 按钮��Z��可用
<%if rsView.eof and rsView.bof then %> ‘ �q�里有个大问题，下文再说

<%else%>

<%end if%>

dyok 2007-04-20 08:48 发表评论