几个常用的网页广告代码
作者:cmscn 日期:2006-04-26
无缝滚动代码
作者:cmscn 日期:2006-04-24
like
作者:cmscn 日期:2006-04-24
XHTML 1.0 标准的代码
作者:cmscn 日期:2005-12-18
自定义IIS的安装位置
作者:cmscn 日期:2005-11-06
PS快捷键
作者:cmscn 日期:2005-11-04
ASP开发技巧集锦四
作者:cmscn 日期:2005-10-15
31. 确认操作
function ConfirmDel()
{
if(confirm("确定要删除吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
<form name="del" method="Post" action="Del.asp" onsubmit="return ConfirmDel();">
==============================================================
我自己用的一个。
function ConfirmReset()
{
if(confirm("确定取消操作吗？一旦取消操作将不能恢复！"))
window.form1.reset();
// return true;
}
<a href="javascript:ConfirmReset();"><img src="button_cance.gif"></a>
32. indexOf() 用法
<字符串对象>.indexOf(<另一个字符串对象>[, <起始位置>])；
该方法从<字符串对象>中查找<另一个字符串对象>（如果给出<起始位置>就忽略之前的位置），如果找到了，就返回它的位置，没有找到就返回“-1”。所有的“位置”都是从零开始的。
eg. Str.indexOf(“AP”)>-1 说明str中存在”AP”字符串
33. 生成流水号
<%
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. 响应回车
function getdata(what,whatid)
{
if (event.keyCode==13)
……
<input name="SerialNum<%=i%>" type="text" onKeyDown="getdata(window.form1.SerialNum<%=i%>.value,<%=i%>)">
35. 关闭...
function ConfirmDel()
{
if(confirm("确定要删除吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
<form name="del" method="Post" action="Del.asp" onsubmit="return ConfirmDel();">
==============================================================
我自己用的一个。
function ConfirmReset()
{
if(confirm("确定取消操作吗？一旦取消操作将不能恢复！"))
window.form1.reset();
// return true;
}
<a href="javascript:ConfirmReset();"><img src="button_cance.gif"></a>
32. indexOf() 用法
<字符串对象>.indexOf(<另一个字符串对象>[, <起始位置>])；
该方法从<字符串对象>中查找<另一个字符串对象>（如果给出<起始位置>就忽略之前的位置），如果找到了，就返回它的位置，没有找到就返回“-1”。所有的“位置”都是从零开始的。
eg. Str.indexOf(“AP”)>-1 说明str中存在”AP”字符串
33. 生成流水号
<%
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. 响应回车
function getdata(what,whatid)
{
if (event.keyCode==13)
……
<input name="SerialNum<%=i%>" type="text" onKeyDown="getdata(window.form1.SerialNum<%=i%>.value,<%=i%>)">
35. 关闭...
ASP开发技巧集锦三
作者:cmscn 日期:2005-10-15
21. 嵌入另一页
<iframe class="TBGen" style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="250" height="25"></iframe>
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用<!--#include file="fuck.asp"-->
22. 全部选定
<SCRIPT language=javascript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements;
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
引用：
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">选中本页显示的所有</td>
小格：
<input name='username' type='checkbox' id="username" value="<%=cstr(rsView("username"))%>">
23. 如何处理页面执行时发生的错误？
<%@ LANGUAGE="VBScript" %>
<%
Response.Buffer = True ' 打开页面缓冲
On Error Resume Next ' 打开错误处理
…………' ASP代码
%>
<%
If Err.Number <> 0 Then ' 错误处理
Response.Clear ' 清除缓冲区
%>
<HTML>' 显示错误信息页面
<HEAD>
<TITLE>页面错误报告</TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<font color=red>
<p>页面错误报告</p>
错误号:<%= Err.Number %><BR>
错误描述:<%= Err.Description %><BR>
错误源:Source <%= Err.Source %><BR>
错误发生行:<%= Err.Line %><BR>
</BODY>
</HTML>
<%
End If
%>
24. 收藏夹图标.
在 HEAD 部分加入下面的内容:
<LINK REL="SHORTCUT ICON" HREF=http://www.alleasy.com.cn/alleasy.ico>
在地址栏加入图标（图标必须是.ico格式，并且要加入收藏后才有效）
在HEAD里加入 <link rel="shortcut icon"&n...
<iframe class="TBGen" style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="250" height="25"></iframe>
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用<!--#include file="fuck.asp"-->
22. 全部选定
<SCRIPT language=javascript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements;
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
引用：
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">选中本页显示的所有</td>
小格：
<input name='username' type='checkbox' id="username" value="<%=cstr(rsView("username"))%>">
23. 如何处理页面执行时发生的错误？
<%@ LANGUAGE="VBScript" %>
<%
Response.Buffer = True ' 打开页面缓冲
On Error Resume Next ' 打开错误处理
…………' ASP代码
%>
<%
If Err.Number <> 0 Then ' 错误处理
Response.Clear ' 清除缓冲区
%>
<HTML>' 显示错误信息页面
<HEAD>
<TITLE>页面错误报告</TITLE>
</HEAD>
<BODY BGCOLOR="#C0C0C0">
<font color=red>
<p>页面错误报告</p>
错误号:<%= Err.Number %><BR>
错误描述:<%= Err.Description %><BR>
错误源:Source <%= Err.Source %><BR>
错误发生行:<%= Err.Line %><BR>
</BODY>
</HTML>
<%
End If
%>
24. 收藏夹图标.
在 HEAD 部分加入下面的内容:
<LINK REL="SHORTCUT ICON" HREF=http://www.alleasy.com.cn/alleasy.ico>
在地址栏加入图标（图标必须是.ico格式，并且要加入收藏后才有效）
在HEAD里加入 <link rel="shortcut icon"&n...
feed
关注腾讯微博：
Recent Comments
好挺全面，挺成功，挺不错！卡卡谢谢了。刚刚好用！