| 万升's profile小鲍的成长日志PhotosBlogLists | Help |
|
11/7/2005 改变文字<SCRIPT LANGUAGE="JAVASCRIPT"> //n = (document.layers) ? 1:0 function change_content(divname, newtext) { </SCRIPT> <span ID="layer1"> 10/21/2005 JS定义Title样式//防止错误出现 function killErrors() { return true;} window.onerror = killErrors; var pltsPop=null; var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离;3-12 合适 var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离;3-12 合适 var pltsPopbg="#FFFFEE"; //背景色 var pltsPopfg="#000000"; //前景色 var pltsTitle="cvvvv"; document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>'); function pltsinits() {document.onmouseover=plts; document.onmousemove=moveToMouseLoc;} function plts() {var o=event.srcElement; if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""}; if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""}; pltsPop=o.dypop; if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined") {pltsTipLayer.style.left=-1000; pltsTipLayer.style.display=''; var Msg=pltsPop.replace(/\n/g,"<br>"); Msg=Msg.replace(/\0x13/g,"<br>"); var re=/\{(.[^\{]*)\}/ig; if(!re.test(Msg))pltsTitle="安徽家教网提醒您!"; else{ re=/\{(.[^\{]*)\}(.*)/ig; pltsTitle=Msg.replace(re,"$1")+" "; re=/\{(.[^\{]*)\}/ig; Msg=Msg.replace(re,""); Msg=Msg.replace("<br>","");} var content = '<table style="background:ffffff;border:1px solid #444444" id=toolTipTalbe><tr id=pltsPoptop><th id=topleft><p id=topright style="display:none"></th></tr><tr><td style="padding:0px;line-height:135%">'+Msg+'</td></tr>'+ '<tr id=pltsPopbot style="display:none"><th><p id=botleft></p><p id=botright align=rightstyle="display:none"></th></tr></table>'; pltsTipLayer.innerHTML=content; toolTipTalbe.style.width=Math.min(pltsTipLayer.clientWidth,document.body.clientWidth/2.2); moveToMouseLoc(); return true;}else{pltsTipLayer.innerHTML=''; pltsTipLayer.style.display='none'; return true;}} function moveToMouseLoc() {if(pltsTipLayer.innerHTML=='')return true; var MouseX=event.x; var MouseY=event.y; //window.status=event.y; var popHeight=pltsTipLayer.clientHeight; var popWidth=pltsTipLayer.clientWidth; if(MouseY+pltsoffsetY+popHeight>document.body.clientHeight) {popTopAdjust=-popHeight-pltsoffsetY*1.5; pltsPoptop.style.display="none"; pltsPopbot.style.display="";}else{ popTopAdjust=0;pltsPoptop.style.display="";pltsPopbot.style.display="none";} if(MouseX+pltsoffsetX+popWidth>document.body.clientWidth){ popLeftAdjust=-popWidth-pltsoffsetX*2;topleft.style.display="none"; botleft.style.display="none"; topright.style.display=""; botright.style.display="";}else {popLeftAdjust=0;topleft.style.display="";botleft.style.display=""; topright.style.display="none";botright.style.display="none";} pltsTipLayer.style.left=MouseX+pltsoffsetX+document.body.scrollLeft+popLeftAdjust; pltsTipLayer.style.top=MouseY+pltsoffsetY+document.body.scrollTop+popTopAdjust; return true;} pltsinits(); 精典JS验证用户名<script language="JavaScript" type="text/JavaScript">
//验证用户名中是否有空格
function isWhiteWpace (s){
var whitespace = " \t\n\r"; var i; for (i = 0; i < s.length; i++){ var c = s.charAt(i); if (whitespace.indexOf(c) >= 0) {return true;} } return false; } //验证用户名是否合法 function isSsnString (ssn){ var re=/^[0-9a-z][\w-.]*[0-9a-z]$/i; if(re.test(ssn)){return true;}else{return false;} } //验证用户名 function checkUserName(ssn){ if( ssn.length<3 || ssn.length>18 ) { alert("\请输入正确的用户名,用户名长度为3-18位!") form_Registers.username.focus(); return false; } if (isWhiteWpace(ssn)){ alert("\请输入正确的用户名,用户名中不能包含空格!"); form_Registers.username.focus(); return false; } if (!isSsnString(ssn)){ alert("\ 对不起,您选择的用户名不正确或已被占用!\n用户名应该由不区分大小写“a-z 0-9 ._-”字符组成!"); form_Registers.username.focus(); return false; } return true; } function checkssn(gotoURL) { var ssn=form_Registers.username.value.toLowerCase(); if (checkUserName(ssn)){ var open_url = gotoURL + "?username=" + ssn; window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=322,height=200'); } } </script> ===========页面中调用javascript:checkssn('index.asp') 9/21/2005 几个常用的ASP应用函数'###############################非法字符检测函数#############################
'函数名: Chk_Lawless_Char 检查非法字符 '参 数: char 欲检查的字符 '返回值: 含有非法字符返回True,否则返回False Function Chk_Lawless_Char(char) If Instr(char,"'") OR instr(char,"<") OR instr(char,">") OR instr(char,"&") OR _ Instr(char,chr(32)) OR instr(char,chr(34)) OR instr(char,"%") OR _ Instr(char," ") OR instr(char,"‘") Then Chk_Lawless_Char = True Else Chk_Lawless_Char = False End IF End Function '###############################字符长度检测函数#############################
'函数名: StrLength '参 数: str 欲检查的字符 '返回值: 返回字符的长度 '注 意: 一个汉字为2个字符 '例 子: StrLength("我们") = 4 | StrLength("abc1") = 4 Function StrLength(str)
If isNull(str) or Str = "" Then StrLength = 0 Exit function End If If len("例子") = 2 then Dim l,t,c,i l=len(str) t=l for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+1 End If next StrLength=t Else StrLength=len(str) End If End Function '###############################检查字符串是否由数字[0-9]构成的数############################# '函数名: Check_Number '参 数: str 欲检查的字符 '返回值: 返回真(True)说明字符串由数字构成,返回假说明含有非数字字符 '例 子: Check_Number("123") → True ' Check_Number("123.5") → False 因为.不是数字 ' Check_Number("我们") → False 因为"我们"不是数字 Function Check_Number(Str)
Dim i,j,Disassemble_Str Check_Number = True '将检测字符分解,将每个字符同0-9进行比较 For i = 1 To Len(Str) Disassemble_Str = Mid(Str,i,1) For j = 0 To 9 IF Disassemble_Str = CStr(j) Then Exit FOR IF j = 9 And Disassemble_Str <> CStr(j) Then Check_Number = False Next Next End Function '###############################检查人民币############################# '函数名: Check_RMB '参 数: str 欲检查的字符 '返回值: 如果参数由数字构成,则返回处理后的结果 (结果为: AAA.BB) '例 子: Check_RMB("123") → 123.00 ' Check_RMB("123.5") → 123.50 ' Check_RMB("128.55554785") → 128.56 ' Check_RMB("dsfdsf") → 0.01 '如果字符串含有非数字,函数返回0.01 Function Check_RMB(Str) Dim x x = InStr(1,Str,".") IF IsNumeric(Cstr(Str)) Then IF x = 0 Then Check_RMB = Str & ".00" Else IF Len(Str) = x Then Check_RMB = Str & "00" ElseIF Len(Str) - x = 1 Then Check_RMB = Str & "0" ElseIF Len(Str) - x > 2 Then Check_RMB = CLng(Str*100)/100 Else Check_RMB = Str End IF End IF Else Response.Write "<Script>alert('金额必须由数字组成!');history.back();</Script>" Response.End 'Check_RMB = "0.01" End IF End Function '*************************************************** '函数名:IsObjInstalled '作 用:检查组件是否已经安装 '参 数:strClassString ----组件名 '返回值:True ----已经安装 ' False ----没有安装 '*************************************************** Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function '*********************************************** '函数名:JoinChar '作 用:向地址中加入 ? 或 & '参 数:strUrl ----网址 '返回值:加了 ? 或 & 的网址 '*********************************************** function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")<len(strUrl) then if InStr(strUrl,"?")>1 then if InStr(strUrl,"&")<len(strUrl) then JoinChar=strUrl & "&" else JoinChar=strUrl end if else JoinChar=strUrl & "?" end if else JoinChar=strUrl end if end function function SqlEncode(str) SqlEncode="'" & replace(str,"'","''") & "'" end function Function Save_Pic() dim request2,formPath,formName,intTemp,Bws_Pic_Src,Pic_Default Dim admin_file '设置管理文件夹 set request2=new UpLoadClass '建立上传对象 '-----------------------------------请在应用时配置以下文件---------------------------------- request2.FileType = "gif/jpg/png/jpeg/bmp" '设置文件允许的附件类型为gif/jpg/rar/zip request2.MaxSize = 150*1024 '设置文件允许上传的大小(k) request2.SavePath = "uploadfile/UploadFile/" '设置服务器文件保存路径 Pic_Default = "uploadfile/UploadFile/none.gif" '设置错误时上传的默认值 admin_file = "manage/" '设置管理文件夹名 '-----------------------------------------配 置 结 束---------------------------------- request2.open() '打开对象 Bws_Pic_Src="" FOR intTemp=1 TO Ubound(request2.FileItem) formName=request2.FileItem(intTemp) select case request2.form(formName&"_Err") '显示文件保存状态 case -1: '没有文件上传 Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" case 0: '上传文件成功 Bws_Pic_Src=Bws_Pic_Src & admin_file & request2.SavePath & request2.form(formName) & "|" case 1: '文件太大,拒绝上传 Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" case 2: '文件格式不对,拒绝上传 Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" case 3: '文件太大且格式不对,拒绝上传 Bws_Pic_Src=Bws_Pic_Src & admin_file & Pic_Default & "|" end select Next Bws_Pic_Src = left(Bws_Pic_Src,len(Bws_Pic_Src)-1) Save_Pic=Bws_Pic_Src End Function Function YD_Price(Price,Msg,PriceName) IF Price = "" Then ErrMsg = ErrMsg & "<br><li>" & Msg & "不得为空!</li>" Else IF Not IsNumeric(Cstr(Price)) Then ErrMsg = ErrMsg & "<br><li>" & Msg & "不得含有中文或其它特殊字符!</li>" Else IF Price <= 0 Then ErrMsg = ErrMsg & "<br><li>" & Msg & "不得为负数!</li>" Else Response.Cookies("YD_Suosams")("" & PriceName & "") = Check_RMB(Price) '保留2位小数,四舍五入 End IF End IF End IF YD_Price = ErrMsg End Function %> 9/17/2005 超酷原创JS下拉列表导航<link href="inc/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript"> var x=7;//这里的X等于t(txt,n)的个数 var pic_habitus=0;//这里设置上面图片的初始值 function showtb(tbnum){ var whichEl = eval("tbtype" + tbnum); var Bws_Num = eval(tbnum); var x=7;//这里的X等于t(txt,n)的个数 if (whichEl.style.display == "none"){ eval("tbtype" + tbnum + ".style.display=\"\";"); eval("file_"+ tbnum +".src=\"images/icon-folder1-open.gif\";") eval("list_"+ tbnum +".src=\"images/icon-folder-open.gif\";") for(i=1;i<x+1;i++){ if(i!=Bws_Num){ eval("tbtype" + i + ".style.display=\"none\";") eval("file_"+ i +".src=\"images/icon-folder1-close.gif\";") eval("list_"+ i +".src=\"images/icon-folder-close.gif\";") } } }else{ eval("tbtype" + tbnum + ".style.display=\"none\";"); eval("file_"+ tbnum +".src=\"images/icon-folder1-close.gif\";") eval("list_"+ tbnum +".src=\"images/icon-folder-close.gif\";") } } function expandall(bb){
pic_habitus if(pic_habitus==0){ for(i=1;i<x+1;i++){ eval("tbtype" + i + ".style.display=\"\";"); eval("file_"+ i +".src=\"images/icon-folder1-open.gif\";") eval("list_"+ i +".src=\"images/icon-folder-open.gif\";") } pic_habitus=1; bb.src="images/icon-expandall.gif"; bb.alt="全部关闭"; }else{ for(i=1;i<x+1;i++){ eval("tbtype" + i + ".style.display=\"none\";"); eval("file_"+ i +".src=\"images/icon-folder1-close.gif\";") eval("list_"+ i +".src=\"images/icon-folder-close.gif\";") } pic_habitus=0; bb.src="images/icon-closeall.gif"; bb.alt="全部展开"; } }
function t(txt,n){
document.write("<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"borderon\"><tr><td height=\"20\" style=\"padding-left:10px;CURSOR: hand\" onclick=showtb("+ n +")><img src=\"images/icon-folder1-close.gif\"width=\"15\" height=\"13\" name=\"file_"+n+"\"><img src=\"images/icon-folder-close.gif\" width=\"16\" height=\"15\" name=\"list_"+n+"\">"+txt+"</td></tr><tbody style=\"display=none\" id=\"tbtype"+ n +"\">") } function list(url,target,txt){
document.write("<tr><td height=\"20\" style=\"padding-left:13px\"><img src=\"images/line.gif\" width=\"13\" height=\"18\" align=\"absmiddle\"><a href=\""+ url +"\" target="+target+">"+ txt +"</td></tr>") } </script> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="borderon">
<tr> <td height="40" align="center">后台管理系统 V1.0版 <img src="images/icon-closeall.gif" alt="全部展开" width="16" height="15" vspace="2" align="absmiddle" class="button" onclick="expandall(this)"> </td> </tr> </table> <script> t("网站管理",1) list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("商品管理",2)
list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("会员管理",3)
list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("会员管理",4)
list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("会员管理",5)
list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("会员管理",6)
list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") t("会员管理",7) list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") list("http://www.kl21.com","_blank","首页基本配置") </script> 9/14/2005 打开窗口运行代码<script language="JavaScript" type="text/JavaScript">
function runCode() { var code=document.form1.Content.value; var newwin=window.open('','',''); newwin.opener = null; newwin.document.write(code); newwin.document.close(); } function CopyCode() { var code=document.form1.Content.value; IsCopyed = window.clipboardData.setData('text',code) if (!IsCopyed) alert("没有复制到剪切板") else alert("已将代码复制到剪贴板") } </script> <form name="form1" method="post" action=""> <p> <textarea name="Content" cols="50" rows="6" id="Content"></textarea> </p> <p> <input type="button" name="Submit" value="运行" onClick="runCode()"> <input type="button" name="Submit2" value="复制" onClick="CopyCode()"> </p> </form> 9/10/2005 JS一例onclick="javascript:if (confirm('是否确定退出系统?')) return window.location='logout.php';else return false;" 9/8/2005 很不错的ASP转换函数Function fixjs(Str) If Str <>"" Then str = replace(str,"\", "\\") Str = replace(str, chr(34), "\""") Str = replace(str, chr(39),"\'") Str = Replace(str, chr(13), "\n") Str = Replace(str, chr(10), "\r") str = replace(str,"'", "'") End If fixjs=Str End Function Function enfixjs(Str) If Str <>"" Then Str = replace(str,"'", "'") Str = replace(str,"\""" , chr(34)) Str = replace(str, "\'",chr(39)) Str = Replace(str, "\r", chr(10)) Str = Replace(str, "\n", chr(13)) Str = replace(str,"\\", "\") End If enfixjs=Str End Function 9/5/2005 复选框全选//复选表单全选事件 form:表单名 function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.name != 'chkall'&&e.type=="checkbox") { e.checked = form.chkall.checked; } } } 9/4/2005 日期验证if not isdate(data) then response.write "<SCRIPT language=JavaScript>alert(\'日期格式错误\');javascript:history.go(-1)</SCRIPT>" end if 9/2/2005 几个ASP验证函数###############################非法字符检测函数#############################
'函数名: Chk_Lawless_Char 检查非法字符 '参 数: char 欲检查的字符 '返回值: 含有非法字符返回True,否则返回False Function Chk_Lawless_Char(char) If Instr(char,"'") OR instr(char,"<") OR instr(char,">") OR instr(char,"&") OR _ Instr(char,chr(32)) OR instr(char,chr(34)) OR instr(char,"%") OR _ Instr(char," ") OR instr(char,"‘") Then Chk_Lawless_Char = True Else Chk_Lawless_Char = False End IF End Function '###############################字符长度检测函数#############################
'函数名: StrLength '参 数: str 欲检查的字符 '返回值: 返回字符的长度 '注 意: 一个汉字为2个字符 '例 子: StrLength("我们") = 4 | StrLength("abc1") = 4 Function StrLength(str)
If isNull(str) or Str = "" Then StrLength = 0 Exit function End If If len("例子") = 2 then Dim l,t,c,i l=len(str) t=l for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+1 End If next StrLength=t Else StrLength=len(str) End If End Function '###############################检查字符串是否由数字[0-9]构成的数############################# '函数名: Check_Number '参 数: str 欲检查的字符 '返回值: 返回真(True)说明字符串由数字构成,返回假说明含有非数字字符 '例 子: Check_Number("123") → True ' Check_Number("123.5") → False 因为.不是数字 ' Check_Number("我们") → False 因为"我们"不是数字 Function Check_Number(Str)
Dim i,j,Disassemble_Str Check_Number = True '将检测字符分解,将每个字符同0-9进行比较 For i = 1 To Len(Str) Disassemble_Str = Mid(Str,i,1) For j = 0 To 9 IF Disassemble_Str = CStr(j) Then Exit FOR IF j = 9 And Disassemble_Str <> CStr(j) Then Check_Number = False Next Next End Function '###############################检查人民币############################# '函数名: Check_RMB '参 数: str 欲检查的字符 '返回值: 如果参数由数字构成,则返回处理后的结果 (结果为: AAA.BB) '例 子: Check_RMB("123") → 123.00 ' Check_RMB("123.5") → 123.50 ' Check_RMB("128.55554785") → 128.56 ' Check_RMB("dsfdsf") → 0.01 '如果字符串含有非数字,函数返回0.01 Function Check_RMB(Str) Dim x x = InStr(1,Str,".") IF IsNumeric(Cstr(Str)) Then IF x = 0 Then Check_RMB = Str & ".00" Else IF Len(Str) = x Then Check_RMB = Str & "00" ElseIF Len(Str) - x = 1 Then Check_RMB = Str & "0" ElseIF Len(Str) - x > 2 Then Check_RMB = CLng(Str*100)/100 Else Check_RMB = Str End IF End IF Else Check_RMB = "0.01" End IF End Function 8/25/2005 网页记数器<%
Dim Visitors
WhichFile=Server.MapPath("../inc/counter.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(WhichFile) Visitors = thisfile.readline If IsEmpty(Session("Connected")) Then Visitors=Visitors+1 End If Session("Connected")=True Set out = fs.CreateTextFile(WhichFile) out.WriteLine(Visitors) out.close Set fs = nothing '显示结果
Response.Write Visitors
%> JS 图片切换效果<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <% set Rs=Server.CreateObject("ADODB.RecordSet") var preloadedimages=new Array(); function setTransition(){ function playTransition(){ function nextAd(){ function jump2url(){ 8/23/2005 简单聊天室<style type="text/css">
<!-- body { background-image: url(bg.gif); } --> </style> <%
mywords=Request("mywords") if Request("mywords").Count>0 then if Application("qq860") = null then Application("qq860")="<br>" + mywords else Application("qq860") = Application("qq860") + "<br>" + mywords end if Response.Write (Application("qq860")) end if %> <table width="200" border="0"> <tr> <td><form name="form1" method="post" action="index.asp"> <input type="text" name="mywords" value="我要说:"> <input type="submit" name="Submit" value="发送"> </form> 8/22/2005 SQL SERVER 数据类型详解SQL SERVER 数据类型详解
8/18/2005 链接数据库链接数据库
============================
sql server 链接
<%
'option explicit 'on error resume next 'if err then 'err.clear 'response.write error.description 'end if dim startime,conn,connstr,db,rs 'startime=timer() Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=qy_bws" %> ==============================
access 链接
<% dim conn,constr on error resume next src="database/kl21_datebase.mdb" Set conn=server.CreateObject("ADODB.Connection") constr="provider=Microsoft.Jet.OLEDB.4.0;DATA Source="&server.MapPath(src) conn.open constr %> 右边滚动广告JS<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css" media="screen"> #floater { position: absolute; left: 200; top: 0; width: 125; visibility: visible; z-index: 10; } body { background-color: #F7F7F7; } --> </style> <script language="JavaScript" type="text/JavaScript" src="inc/ly.js"></script> </head> <div id="floater" style="left:819; top: 240px"> <img src="images/qito_r9_c23-1.jpg" width="185" height="402"> </div> ========================================================
下面是ly.js文件
self.onError=null;
currentX = currentY = 0; whichIt = null; lastScrollX = 0; lastScrollY = 0; NS = (document.layers) ? 1 : 0; IE = (document.all) ? 1: 0; <!-- STALKER CODE --> function heartBeat() { if(IE) { diffY = document.body.scrollTop; diffX = document.body.scrollLeft; } if(NS) { diffY = self.pageYOffset; diffX = self.pageXOffset; } if(diffY != lastScrollY) { percent = .1 * (diffY - lastScrollY); if(percent > 0) percent = Math.ceil(percent); else percent = Math.floor(percent); if(IE) document.all.floater.style.pixelTop += percent; if(NS) document.floater.top += percent; lastScrollY = lastScrollY + percent; } if(diffX != lastScrollX) { percent = .1 * (diffX - lastScrollX); if(percent > 0) percent = Math.ceil(percent); else percent = Math.floor(percent); if(IE) document.all.floater.style.pixelLeft += percent; if(NS) document.floater.left += percent; lastScrollX = lastScrollX + percent; } } <!-- /STALKER CODE --> <!-- DRAG DROP CODE --> function checkFocus(x,y) { stalkerx = document.floater.pageX; stalkery = document.floater.pageY; stalkerwidth = document.floater.clip.width; stalkerheight = document.floater.clip.height; if( (x > stalkerx && x < (stalkerx+stalkerwidth)) && (y > stalkery && y < (stalkery+stalkerheight))) return true; else return false; } function grabIt(e) { if(IE) { whichIt = event.srcElement; while (whichIt.id.indexOf("floater") == -1) { whichIt = whichIt.parentElement; if (whichIt == null) { return true; } } whichIt.style.pixelLeft = whichIt.offsetLeft; whichIt.style.pixelTop = whichIt.offsetTop; currentX = (event.clientX + document.body.scrollLeft); currentY = (event.clientY + document.body.scrollTop); } else { window.captureEvents(Event.MOUSEMOVE); if(checkFocus (e.pageX,e.pageY)) { whichIt = document.floater; StalkerTouchedX = e.pageX-document.floater.pageX; StalkerTouchedY = e.pageY-document.floater.pageY; } } return true; } function moveIt(e) { if (whichIt == null) { return false; } if(IE) { newX = (event.clientX + document.body.scrollLeft); newY = (event.clientY + document.body.scrollTop); distanceX = (newX - currentX); distanceY = (newY - currentY); currentX = newX; currentY = newY; whichIt.style.pixelLeft += distanceX; whichIt.style.pixelTop += distanceY; if(whichIt.style.pixelTop < document.body.scrollTop) whichIt.style.pixelTop = document.body.scrollTop; if(whichIt.style.pixelLeft < document.body.scrollLeft) whichIt.style.pixelLeft = document.body.scrollLeft; if(whichIt.style.pixelLeft > document.body.offsetWidth - document.body.scrollLeft - whichIt.style.pixelWidth - 20) whichIt.style.pixelLeft = document.body.offsetWidth - whichIt.style.pixelWidth - 20; if(whichIt.style.pixelTop > document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5) whichIt.style.pixelTop = document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5; event.returnValue = false; } else { whichIt.moveTo(e.pageX-StalkerTouchedX,e.pageY-StalkerTouchedY); if(whichIt.left < 0+self.pageXOffset) whichIt.left = 0+self.pageXOffset; if(whichIt.top < 0+self.pageYOffset) whichIt.top = 0+self.pageYOffset; if( (whichIt.left + whichIt.clip.width) >= (window.innerWidth+self.pageXOffset-17)) whichIt.left = ((window.innerWidth+self.pageXOffset)-whichIt.clip.width)-17; if( (whichIt.top + whichIt.clip.height) >= (window.innerHeight+self.pageYOffset-17)) whichIt.top = ((window.innerHeight+self.pageYOffset)-whichIt.clip.height)-17; return false; } return false; } function dropIt() { whichIt = null; if(NS) window.releaseEvents (Event.MOUSEMOVE); return true; } <!-- DRAG DROP CODE --> if(NS) { window.captureEvents(Event.MOUSEUP|Event.MOUSEDOWN); window.onmousedown = grabIt; window.onmousemove = moveIt; window.onmouseup = dropIt; } if(IE) { document.onmousedown = grabIt; document.onmousemove = moveIt; document.onmouseup = dropIt; } if(NS || IE) action = window.setInterval("heartBeat()",1); 二级联动菜单<%
set rs=server.createobject("adodb.recordset") Sql = "Select * From sp_class2" rs.open sql,conn,1,1 %> <SCRIPT language = "JavaScript"> var onecount; onecount=0; subcat = new Array(); <% count = 0 do while not rs.eof %> subcat[<%=count%>] = new Array("<%= trim(rs("class_name"))%>","<%= trim(rs("class1_id"))%>","<%= trim(rs("id"))%>"); <% count = count + 1 rs.movenext loop rs.close %> onecount=<%=count%>; function changelocation(locationid)
{ document.myform.class2.length = 0; var locationid=locationid; var i; for (i=0;i < onecount; i++) { if (subcat[i][1] == locationid) { document.myform.class2.options[document.myform.class2.length] = new Option(subcat[i][0], subcat[i][2]); } } } </SCRIPT> <% sql="select * from sp_class1" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" response.end else %> <select class="bd" name="class1" onChange="changelocation(document.myform.class1.options[document.myform.class1.selectedIndex].value)" size="1"> <option selected value="0">请选择大类</option> <%do while not rs.eof%> <option value="<%=trim(rs("id"))%>"><%=trim(rs("class_name"))%></option> <% rs.movenext Loop End IF call closex("rs") %> </select><select name="class2" class="bd"> <option value="0" selected>选择二级分类</option> </select> 8/10/2005 常用SQL语句SQL常用命令使用方法:
(1) 数据记录筛选: sql="select * from 数据表 where 字段名=字段值 order by 字段名 " sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " sql="select top 10 * from 数据表 where 字段名 order by 字段名 " sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录: sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录: sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录: sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数: AVG(字段名) 得出一个表格栏平均值 引用以上函数的方法: sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" 用 rs("别名") 获取统的计值,其它函数运用同上。 (5) 数据表的建立和删除: CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例:CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表) 4. 记录集对象的方法: rs.movenext 将记录指针从当前的位置向下移一行
if not isNumeric(request("字段名称")) then
判断客户端浏览器是否支持 Cookie使用 BrowserCap 对象的 Cookie 属性来判断客户端浏览器是否支持 Cookie,并返回信息 :
< % Sub checkCookie() Set BrowserCap=Server.CreateObject("MSWC.BrowserType") if BrowserCap.Cookie=True then response.write "你的浏览器支持 Cookie!" else response.write "对不起,你所使用的浏览器不支持 Cookie!" end if end Sub %> |
|
|