ASP编程：ASP开辟44条技能集锦之二

只看该作者 · 发表于 2015-1-16 22:12:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。技能<P>上一节：ASP开辟44条技能集锦之一<P>21.嵌进另外一页

<P><iframeclass="TBGen"style="top:2px"ID="UploadFiles"src="upload.asp"frameborder=0scrolling=nowidth="250"height="25"></iframe>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
实在也能够用

<P>22.全体选定

<P><SCRIPTlanguage=javascript>
functionCheckAll(form)
{
for(vari=0;i<form.elements.length;i++)
{
vare=form.elements;
if(e.Name!="chkAll")
e.checked=form.chkAll.checked;
}
}
</script>
援用：
<tdwidth="250"height="30"><inputname="chkAll"type="checkbox"id="chkAll"onclick=CheckAll(this.form)value="checkbox">选中本页显现的一切</td>

<P>小格：
<inputname=usernametype=checkboxid="username"value="<%=cstr(rsView("username"))%>">

<P>23.怎样处置页面实行时产生的毛病？

<P><%@LANGUAGE="VBScript"%>
<%
Response.Buffer=True翻开页面缓冲
OnErrorResumeNext翻开毛病处置
…………ASP代码
%>

<P><%
IfErr.Number0Then毛病处置
Response.Clear扫除缓冲区
%>

<P><HTML>显现毛病信息页面
<HEAD>
<TITLE>页面毛病呈报</TITLE>
</HEAD>

<P><BODYBGCOLOR="#C0C0C0">
<fontcolor=red>
<p>页面毛病呈报</p>

<P>毛病号:<%=Err.Number%><BR>
毛病形貌:<%=Err.Description%><BR>
毛病源:Source<%=Err.Source%><BR>
毛病产生行:<%=Err.Line%><BR>
</BODY>
</HTML>
<%
EndIf
%>

<P>24.保藏夹图标.

<P>在HEAD部分到场上面的内容:
<LINKREL="SHORTCUTICON"HREF=http://www.alleasy.com.cn/alleasy.ico>

<P>在地点栏到场图标（图标必需是.ico格局，而且要到场保藏后才无效）
在HEAD里到场<linkrel="shortcuticon"href="favicon.ico">

<P>25.校验提交表单（正则表达式使用）

<P><scriptlanguage="JavaScript">

</SCRIPT>

<P>一致一下，今后都如许写
<formmethod="POST"name="myform"action="Checkreg.asp">
</form>

<P><inputtype="button"name="Submit"value="提交">

<P>26.轮回

<P><%
dimsql,rs
setrs=server.createobject("ADODB.recordset")
sql="select*fromnewswherebigclassname=办理计划"
rs.opensql,conn,1,3
fork=1tors.recordcount
ifrs.eofthen
exitfor
else
%>

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

<P><%
rs.movenext
endif
next
%>

<P>27.另外一个只能输出数字代码

<P><scriptlanguage=javascript>
functioncheck(){
if(isNaN(tt.value))
{
alert("必需是数字!");
tt.value="";
}
</script>

<P><inputtype="text"name="tt"onkeyup="check();">

<P>28.有选择显现

<P>functionshowco(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;//不显现
Reftr.style.display="block";//显现
}

<P>挪用：

<P><selectname="RefType"style=width:77pt>

<P><optionvalue="Inventory">Inventory</option>

<P><optionvalue="CO">CO</option>

<P><optionvalue="SP">SP</option>

<P></select>

<P>选择显现行<trid="Reftr"name="Reftr"style="display:none">也能够用<divid=”Resftr”></div>

<P>29.调试参数显现标准

<P>Response.Writesession("LoginCompanyId")&","&Date&","&Request.Form("Owner")&","&Request.Form("Name")&
//注重最初没有"只是在，之间用","其他用&&援用便可
//也就是说只是用&","&两头加一个逗号，其他的该怎样写，就怎样写
Response.End

<P>30.从数据库添补下拉菜单

<P><%
sql="select*fromBigClass"
rs.opensql,conn,1,1
%>

<P><selectname="BigClassName"size="1">
<optionselectedvalue="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>

<P><%
rs.movenext//不克不及少，不然反复
dowhilenotrs.eof
%>

<P><optionvalue="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
<%
rs.movenext
loop
rs.close
%>
</select>

<P>//以下是新办法

<Pstyle="MARGIN-LEFT:13.5pt;TEXT-INDENT:-13.5pt;mso-char-indent-count:-1.5"><selectname="SrcNo">
<%dowhilenotSrcRs.eof%>
<optionvalue="<%=trim(SrcRs("Cost"))%>"
<%
ifTrim(SrcComRs("SrcNo"))=Trim(SrcRs("Cost"))then
response.Write"selected"
endif
%>
><%=trim(SrcRs("Cost"))%>
</option>
<%
SrcRs.movenext
loop
SrcRs.close
%>
</select><P>31.确认操纵

<P>functionConfirmDel()
{
if(confirm("断定要删除吗？一旦删除将不克不及恢复！"))
returntrue;
else
returnfalse;
}

<P><formname="del"method="Post"action="Del.asp">

<P>==============================================================

<P>我本人用的一个。
functionConfirmReset()
{
if(confirm("断定作废操纵吗？一旦作废操纵将不克不及恢复！"))
window.form1.reset();
//returntrue;
}
<ahref="javascript:ConfirmReset();"><imgsrc="http://www.webjx.com/htmldata/2005-10-18/button_cance.gif"></a>

<P>32.indexOf()用法

<P><字符串工具>.indexOf(<另外一个字符串工具>[,<肇端地位>])；

<P>该办法从<字符串工具>中查找<另外一个字符串工具>（假如给出<肇端地位>就疏忽之前的地位），假如找到了，就前往它的地位，没有找到就前往“-1”。一切的“地位”都是从零入手下手的。
eg.Str.indexOf(“AP”)>-1申明str中存在”AP”字符串

<P>33.天生流水号

<P><%
ifrequest.form("Modf")""then
Dimrs
Dimsql
DimBugID
dimtoday
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

<P>setrs=Server.CreateObject("ADODB.recordset")
sql="selecttop1*frombuglistorderbySubmitDatedesc"
rs.opensql,conn,1,3
ifnotrs.eofthen
DimOldSerialnum
OldSerialnum=Rs("BugID")
OldSerialnum=right(OldSerialnum,12)
Serial=right(Serialnum,12)
ifOldSerialnum-Serial>=0then
Serialnum=OldSerialnum+1
endif
endif
BugID="ES"&request("ProductVersion")&Serialnum

<P>34.呼应回车

<P>functiongetdata(what,whatid)
{
if(event.keyCode==13)
……
<inputname="SerialNum<%=i%>"type="text">

<P>35.封闭窗口前革新父页面

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

<P>36.JS事务

<P>事务/形貌

<P>onblur事务产生在窗口得到核心的时分。
onchange事务产生在文本输出区的内容被变动，然后核心从文本输出区移走以后。
onclick事务产生在工具被单击的时分。
onerror事务产生在毛病产生的时分。
onfocus事务产生在窗口失掉核心的时分。
onload事务产生在文档全体下载终了的时分。
onmousedown事务产生在用户把鼠标放在工具上按下鼠标键的时分。参考onmouseup事务。
onmou搜索引擎优化ut事务产生在鼠标分开工具的时分。参考onmou搜索引擎优化ver事务。
onmou搜索引擎优化ver事务产生在鼠标进进工具局限的时分。
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扫瞄器的窗口被挪动时触发的事务

<P>37.主动最年夜化

<P>functionwindow_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth,screen.availHeight);
}

<P><body>

<P>38.几个SQL技能

<P>SELECTArea,Territory,username,sum(dealqty)DealQty,count(Projectnum)ProjectQty,sum(TotalAmount)TotalAmountQty,sum(TotalPowerRT)TotalPowerRTFROMVW_PreviewTerritorywhereusername=段龙义groupbyarea,Territory,username
只需把不必要统计的器材分组就能够了。

<P>selectarea,count(projectnum)TotalProjectQty,sum(DealQty)TotalDealQty,sum(TotalAmount)TotalAmountQty,sum(TotalPowerRT)TotalPowerRTQtyfromvw_previewProjectwhereusername=admingroupbyarea
这个也是一样，记着：count()只是计数，不论这个字段值是几。sum()是乞降，把一切加在一同。

<P>39.Eval用法

<P>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+后增加子类？")))

<P>
<P>40.窗口封闭之前

<P>functionwindow_onbeforeunload(Projectnum)
{
if(event.clientX>document.body.clientWidth&&event.clientY<0)
{
varoXMLHTTP=newActiveXObject("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.尺度表格
***************
*这个是题目
***************
<tablecellspacing=0cellpadding=0width="100%"border=0>
<tr>
<tdclass=titlenowrapalign=left>
<%response.writeApplication("LProductManage"&session("LanguageId"))%>
</td>
</tr>
</table>
***************
*这个是横线
***************
<tablecellspacing=0cellpadding=0width="100%"border=0>
<tbody>
<tr>
<td>
</td>
</tr>
<trclass="linecolor">
<tdheight="2"></td>
</tr>
<tr>
<tdclass="tdcolor"align=leftheight=15></td>
</tr>
</tbody>
</table>
***************
*这个是表格
***************
<tableborder=0cellpadding=0cellspacing=1width=100%bgcolor="#d0d090">
<tbody>
<thalign="middle"class=light2><b><%=application("Lstatus"&session("languageid"))%></b></th>
<thalign="middle"class=light2><b><%=application("LSaleStage"&session("languageid"))%></b></th>
<trbgColor="white">
<tdalign="middle"></td>
<tdalign="middle"></td>
</tr>

</tbody>
</table>

边框添补=0
距离＝1
底色=#d0d090
42.这也行
fori=2tonum
BaseTypeAllPArr=request("BaseType"&i&"P"&jLoop)&":"&BaseTypeAllPArr
response.Write"OOOO"&request("BaseType"&i&"P"&jLoop)&"OOOO<br>"
next
43.尺度正文头
******************************************
文件名:
Copyright(c)2001-2005××信息手艺公司软件部
功效形貌:产物编纂
参数
扳连数据表，视图，存储历程：自界说函数dbo.GetSubTreeinfo
包括的文件:
挪用的公用函数，类，办法
创立人:KokeyYU
日　期:2005-8-9
修正人:
日　期:
修正申明:
版　本:
******************************************/
44.title换行
<ahref="javascript:;"title="这是一行&#13这是另外一行！">把鼠标放下去</a>
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

只看该作者 · 发表于 2015-3-24 21:08:13

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

只看该作者 · 发表于 2015-3-17 19:08:39

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-3-11 02:05:28

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-3-2 02:14:29

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-2-11 08:18:35

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

仓酷云 · 发表于 2015-2-5 08:21:51

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

只看该作者 · 发表于 2015-1-27 09:10:27

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

只看该作者 · 发表于 2015-1-18 23:12:30

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：ASP开辟44条技能集锦之二

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子