给一个时间段注册的用户加虚拟货币的SQL语句(cms 1.2)
作者:cmscn 日期:2005-10-30
联想 i607
作者:cmscn 日期:2005-10-25
推荐-影音视频
作者:cmscn 日期:2005-10-18
分类 -影音视频
作者:cmscn 日期:2005-10-18
电影调用-影音视频
作者:cmscn 日期:2005-10-18
点击排行-影音视频
作者:cmscn 日期:2005-10-18
application服务器缓存--优化JK论坛篇
作者:cmscn 日期:2005-10-18
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...
ASP开发技巧集锦二
作者:cmscn 日期:2005-10-15
11. 报错并返回
if rs.bof and rs.eof then '还是有问题
response.write"<SCRIPT language=JavaScript>alert('找不到！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
<script language="javascript">
alert('<%=intOperationInfo%>');
window.navigate('ChangePwd.asp');
</Script>
12. 从VBS到JS，混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
<script language="javascript">
alert("<%=checkpwdconfig(0)%>")
</script>
13. 弹出窗口
<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;
}
</script>
用一个连接调用：
<a href=""＃"">请修改密码 onClick="openaddnew()"</a>
图片调用：
<img name=submit1 src="../button_new<%=session("languageid")%>.gif" onClick="openaddnew()">
14. 分页
<!--#include file="conn.asp"-->
<%
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%>条
<a href="manage.asp?pageno=1">首页</a>
<%if pageno>1 then%>
<a href="manage.asp?pageno=<%=int(pageno)-1%>">上一页</a>
<%
end if
if int(pageno)<>int(rs.pagecount)then
%>
<a href="manage.asp?pageno=<%=int(pageno+1)%>">下一页</a>
<%end if%>
<a href="manage.asp?pageno=<%=int(rs.pagecount)%>">尾页</a&am...
if rs.bof and rs.eof then '还是有问题
response.write"<SCRIPT language=JavaScript>alert('找不到！');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个是跳转。
<script language="javascript">
alert('<%=intOperationInfo%>');
window.navigate('ChangePwd.asp');
</Script>
12. 从VBS到JS，混用
<%
dim checkpwdconfig
checkpwdconfig=split(addation,"/")
%>
<script language="javascript">
alert("<%=checkpwdconfig(0)%>")
</script>
13. 弹出窗口
<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;
}
</script>
用一个连接调用：
<a href=""＃"">请修改密码 onClick="openaddnew()"</a>
图片调用：
<img name=submit1 src="../button_new<%=session("languageid")%>.gif" onClick="openaddnew()">
14. 分页
<!--#include file="conn.asp"-->
<%
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%>条
<a href="manage.asp?pageno=1">首页</a>
<%if pageno>1 then%>
<a href="manage.asp?pageno=<%=int(pageno)-1%>">上一页</a>
<%
end if
if int(pageno)<>int(rs.pagecount)then
%>
<a href="manage.asp?pageno=<%=int(pageno+1)%>">下一页</a>
<%end if%>
<a href="manage.asp?pageno=<%=int(rs.pagecount)%>">尾页</a&am...
