分类 -影音视频

作者:cmscn 日期:2005-10-18

'

唱片街分类
sub music_usa(n_num,n_cid,n_sid)
i=0
sql="select top "&n_num&" id,name,c_id,s_id,n_id,singer,hits from music_song where hidden=1 and c_id="&n_cid&" and s_id="&n_sid&" order by id desc"...

分类:Cms | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 915

电影调用-影音视频

作者:cmscn 日期:2005-10-18

sub main_center_video(vname,vgen,c_num,w_num)
dim osql,id,name,pnum
select case vgen
case "hot"
osql=" order by counter desc,id desc"...

分类:Cms | 固定链接 | 评论: 6 | 引用: 0 | 查看次数: 856

点击排行-影音视频

作者:cmscn 日期:2005-10-18

sub main_center_musik(vgen,c_num,w_num)
dim osql,id,name,pnum,hits
select case vgen
case "hot"...

分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 1093

application服务器缓存--优化JK论坛篇

作者:cmscn 日期:2005-10-18

con_forum_fir.asp中的sub forum_first()函数

是用来论坛版块数据初始化的,读取bbs_forum表中各个版块的设置,一般是不经常变的,所以我们可以利用服务器缓存将这些内容储存起来,从而减少数据库读取次数.方法如下:

...

分类:Cms | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 903

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. 关闭...

分类:Asp | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 877

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>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其实也可以用

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 | 固定链接 | 评论: 7 | 引用: 0 | 查看次数: 825

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. 分页

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

分类:Asp | 固定链接 | 评论: 6 | 引用: 10 | 查看次数: 877