-3 24

收集部份简易实用代码

Category:电脑专业 View: Author:onesee
数据库操作ASP SQL：
9:23 2005-3-28

查询/修改
sqlStr="Select * from user where id="&id 
Rs.open sqlStr,conn,3,2
添加
sqlStr="Select * from user"
Rs.open sqlStr,conn,1,3
删除
sqlStr="delete from user where id="&id 
conn.execute(sqlStr)

表格验证：
10:39 2005-3-28

<script>
function chk()
{if(document.myform.content.value==""){
alert("请输入您要发布的内容！")
myform.content.focus();
return false;
}}</script>


9:32 2005-3-29

<script>
function chk(){
  if(document.orderform.username.value==""){
    alert("请输入您的姓名！");
    document.orderform.username.focus();
    return false;
  }
  document.orderform.submit()
}</script>

联系的信息获取：
11:10 2005-3-29

<%
sqlStr = "select * from ContactList"
Set Cr = Server.CreateObject("ADODB.Recordset")
Cr.open sqlStr,conn,3,2
%>
<%=cr("Company")%>
<%=cr("Contactor")%>
<%=cr("Address")%>
<%=cr("Zipcode")%>
<%=cr("Tel")%>
<%=cr("Fax")%>
<%=cr("URL")%>
<%=cr("Email")%>
<%=cr("PowerBy")%>
<%=cr("PowerByUrl")%>
<%=cr("Author")%>
<%=cr("Memo")%>

技术支持：

<a href="<%=cr("PowerByUrl")%>"><%=cr("PowerBy")%></a>


列表中的产品信息1：
11:42 2005-3-29

<table width="113" border="0" cellspacing="0" cellpadding="4">
                    <tr> 
                      <td align="center"><table width="75" border="0" cellpadding="4" cellspacing="1" bgcolor="#E6E8DF">
                          <tr> 
                            <td bgcolor="#FFFFFF"><a href="Cn_ProductDetail.asp?id=<%=rs2.fields("id")%>" title="点击查看该产品的详细资料！"><img src="<%=rs2("BigPicURL")%>" width="150" height="150"   hspace="5" class="tu" border="0"></a></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td width="105"><img src="images/h04.jpg" width="16" height="4"></td>
                    </tr>
                    <tr> 
                      <td><font color="#009900">ID：</font><%=rs2("ProductId")%></td>
                    </tr>
                    <tr> 
                      <td><font color="#009900">Product：</font><%=rs2("Enname")%></td>
                    </tr>
                  </table>

javascript“后退”：
17:09 2005-3-29

<a href="javascript:void(0)" onClick="history.go(-1)">返回</a>

这样也可以

<a href="javascript:void(0)" onClick="history.back()">返回</a>


背景音乐的代码：
9:12 2005-3-30

<embed src='110.wma' width=200 height=200 autostart=true loop=true hidden="true"></embed>


逐行逐列获取数据：
9:18 2005-3-31

<table width="511"  border="0" cellspacing="0" cellpadding="0">
<%for i=1 to rs2.pagesize step n %>
<tr>
<% for j=1 to n %>
 <td><%=rs2.fields("id")%></td>
<% 

rs2.movenext
if rs2.eof then
  exit for
end if
next %>
</tr>

<%next%>
            </table>


数据库添加记录操作：
11:52 2005-3-31

 sql="insert into ProductList(ProductId,CnName,EnName,CnDetail,EnDetail,SmallPicURL,BigPicURL,OperateTime) values('"&vProductId&"','"&vCnName&"','"&vEnName&"','"&vCnDetail&"','"&vEnDetail&"','"&path1&"','"&path2&"','"&now&"')"
 conn.execute(sql)

14:28 2005-3-31

sqlStr="select * from ProductList"
 Rs.open sqlStr,conn,1,3
 rs.addnew
 
 rs("ProductId").value=vProductId
 rs("CnName").value=vCnName
 rs("EnName").value=vEnName
 rs("CnDetail").value=vCnDetail
 rs("EnDetail").value=vEnDetail
 rs("SmallPicURL").value=path1
 rs("BigPicURL").value=path2
 rs("OperateTime").value=now

 rs.update
 rs.close


获取简介内容：
10:26 2005-4-7

<% sql="select * from jianjie order by id" 
    set rs=conn.execute(sql)
  n=0
  NewsString=""
  while not rs.eof
  NewsString=NewsString & rs("content") & "<BR>"
  n=n+1
  
  rs.movenext
  wend
%>


列表中的产品信息2：
10:46 2005-4-7

<table width="140" height="152" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="152" height="18"><img src="images/proa01.gif" width="140" height="18"></td>
                          </tr>
                          <tr> 
                            <td height="134" align="center" background="images/proa02.gif"><a href="pro_show.htm" target="_blank"><img src="pics/02a.jpg" width="125" height="125" border="0"></a></td>
                          </tr>
                        </table>
                        <table width="152" height="29" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <td align="center">产品名称123abc</td>
                          </tr>
                        </table>

javascript删除确认：
9:33 2005-4-8

function  del(){
var checkboxs="";
var  bz;
for(i=0;i<document.form1.checkbox.length;i++){
   if(document.form1.checkbox[i].checked=true){
   checkboxs=checkboxs+','
    bz=1;
}
}
  if(bz!=0){
   if(confirm("确定要删除吗")){
    checkboxs=checkboxs.substring(0,String.parInt(checkboxs.length)-1);
   document.form1.action="url?id="checkboxs;
   document.form1.submit();
}  
}else{
   alert("请选择要删除的记录");
}
}
上面就是整个代码

此段代码应该是陈永楠老兄当年所写。

看了半天，不知道我为什么会保存这个，应该是之前的各行换色跟鼠标上移变色用到的吧：
11:01 2005-4-8

#89BDFC


字符串截取的函数：
8:16 2005-4-21

Private function itcStr(obj,num)
'中文一个字算1、英文一个也算1 
if len(obj)<=num then
  itcStr=obj
else
  itcStr=left(obj,num) & "..." 
end if
end function


状态栏文字：
8:49 2005-4-21

<SCRIPT> 
<!-- 
window.defaultStatus="欢迎登陆XXXXX网 http://www.XXXXX.com"; 
//--> 
</SCRIPT>


IE上的一些相关代码：
8:53 2005-4-21

<!--IE地址栏前换成自己的图标-->
<LINK href="tigle.ico" rel="Shortcut Icon">
<!--可以在收藏夹中显示出你的图标-->
<LINK href="tigle.ico" rel=Bookmark>


注册时，延时看完条款后方能注册的代码：
15:43 2005-4-21

<SCRIPT language=javascript>
<!--
var secs = 30;
document.agree.agreeb.disabled=true;
for(i=1;i<=secs;i++) {
 window.setTimeout("update(" + i + ")", i * 1000);
}
function update(num) {
 if(num == secs) {
 document.agree.agreeb.value ="同意条款，继续注册";
 document.agree.agreeb.disabled=false;
 }
else {
 printnr = secs-num;
 document.agree.agreeb.value = "请认真查看服务条款 (" + printnr +" 秒后继续)";
 }
}
//-->
</SCRIPT>


asp包含语句：
17:21 2005-4-21

<!--#include file="inc/dbconn.inc"-->
<!--#include file="inc/func.asp"-->

应该是第一次接触到.inc被包含，所以才有所记录？？？

javascript改变连接参数：
9:58 2005-4-22

 onclick="javascript:this.href='main.asp?username='+document.iForm.test1.value"


10:24 2005-4-22
加入透明Flash代码

<embed src="Flash地址"; width="400" height="300" quality="high" wmode="transparent" align="right" style="position: absolute; left:0; top:0">

此代码为插入透明flash代码，其中 width="" 为flash的宽，height="" 为 flas的高，left: 为从左向右移的位置，top: 为从上向下移的位置

加入鼠标代码

<style type="text/css">body{cursor:url(鼠标地址)}</style> 

加入音乐代码

<bgsound src="音乐地址" loop="-1">

此代码为加入背景音乐，其中loop="-1"为无限次循环

<embed src="音乐地址" hidden>

此代码为插入音乐，hidden为隐藏
固定背景

<Body bgproperties="fixed"> 

禁止右键

<body oncontextmenu="return false">

过度方式

<meta http-equiv="Page-Exit" content="revealTrans(Duration=3,Transition=5)"> 


此代码可以在链接其它页面的时候产生一种过度的特效，Duration 的值为网页动态过渡的时间，单位为秒。 Transition 是过渡方式，它的值为0到23，分别对应24种过渡方式。如下表： 0 盒状收缩 1 盒状放射 2 圆形收缩 3 圆形放射 4 由下往上 5 由上往下 6 从左至右 7 从右至左 8 垂直百叶窗 9 水平百叶窗 10 水平格状百叶窗 11垂直格状百叶窗 12 随意溶解 13从左右两端向中间展开 14从中间向左右两端展开 15从上下两端向中间展开 16从中间向上下两端展开 17 从右上角向左下角展开 18 从右下角向左上角展开 19 从左上角向右下角展开 20 从左下角向右上角展开 21 水平线状展开 22 垂直线状展开 23 随机产生一种过渡方式

弹窗及双击滚屏javascript：
11:02 2005-4-22

href="javascript:openwin('sendmail.asp?reid=<%=rs("uname")%>','top=10,left=300,width=460,height=420'
<SCRIPT language=JavaScript>
  //双击滚屏代码
  var currentpos,timer;
  
  function initialize()
  {
  timer=setInterval("scrollwindow()",50);
  }
  
  function sc(){
  clearInterval(timer);
  }
  
  function scrollwindow()
  {
  currentpos=document.body.scrollTop;
  window.scroll(0,++currentpos);
  if (currentpos != document.body.scrollTop)
    sc();
  }
  document.onmousedown=sc
  document.ondblclick=initialize
  </script>

15:54 2005-4-22

<a href="javascript:openwin('../company.asp?uid=0G221ZS4&id=981','top=10,left=300,width=460,height=420')">福州xx电子工程公司</a>
17:12 2005-4-22
<%if rs("cname")<>"" then 
        kjianj=replace(rs("jianj"),"<br>",chr(13))
              kjianj=replace(kjianj," "," ")
        else
        kjianj="" %>
        <%end if%>

17:22 2005-4-22

sql="select top 10 * from zp where uname='"&uname&"' order by addtime desc"

Share
代码   评论(0)

相关文章:

发表评论

◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。