dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
2. ASP与SQL数据库连接:
dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
建立记录集对象:
set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2
SQL常用命令使用方法:
数据记录筛选:
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"
更新数据记录:
sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"
删除数据记录:
sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除)
添加数据记录:
sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "<font color=#FF0000>您通过了代理服务器,"& _ "真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %>
conn.execute("delete from table where id not in (select distinct from table)")
文件删除函数
<% '文件删除函数 function deletefile(filename) if filename<>"" then set fso=server.CreateObject("scripting.filesystemobject") if fso.FileExists(filename) then fso.DeleteFile filename else Response.Write "<script>alert(’该文件不存在’);</script>" end if end if end function
' 替换为一个空格 Do While InStr(1, strTemp, " ", 1) <> 0 strTemp = Replace(strTemp, " ", " ") Loop WordCount = UBound(Split(strTemp, " ", -1, 1)) +1 End Function %>
全正则的检测IP是否合法的函数
function checkIP2(sIPAddress) { var exp=/^(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])/.(/d{1,2}|1/d/d|2[0-4]/d|25[0-5])$/; var reg = sIPAddress.match(exp); var ErrMsg="你输入的是一个非法的IP地址段!/nIP段为::xxx.xxx.xxx.xxx(xxx为0-255)!" var Msg="你输入的是一个合法的IP地址段!" if(reg==null) { alert(ErrMsg); } else { alert(reg); } }
<script language=javascript> document.οnkeydοwn=gopage var add="Admin/AddArticle.asp" var logon="Admin/Logon.asp" function gopage() { if (event.keyCode==13) location=add if (event.keyCode==38) location=logon } </script>
<SCRIPT LANGUAGE=javascript><!-- if (top.location != self.location) top.location=self.location; // --> </SCRIPT>
怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then response.write "<font color=#FF0000>您通过了代理服务器," & "真实的IP为 "&Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %>
取得控件的绝对位置
//javascript
<script language="javascript"> function getIE(e){ var t=e.offsetTop; var l=e.offsetLeft; while(e=e.offsetParent){ t+=e.offsetTop; l+=e.offsetLeft; } alert("top="+t+"nleft="+l); } </script>
//VBScript
<script language="VBScript"> <!-- function getIE() dim t,l,a,b set a=document.all.img1 t=document.all.img1.offsetTop l=document.all.img1.offsetLeft while a.tagName<>"BODY" set a = a.offsetParent t=t+a.offsetTop l=l+a.offsetLeft wend msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置" end function --> </script>
光标是停在文本框文字的最后
<script language="javascript"> function cc() { var e = event.srcElement; var r =e.createTextRange(); r.moveStart('character',e.value.length); r.collapse(true); r.select(); } </script> <input type=text name=text1 value="123" οnfοcus="cc()">
<Script Language="JavaScript"> var timedate= new Date("October 1,2002"); var times="国庆节"; var now = new Date(); var date = timedate.getTime() - now.getTime(); var time = Math.floor(date / (1000 * 60 * 60 * 24)); if (time >= 0) document.write("现在离"+times+"还有: "+time +"天") </Script>
在<body></body>之间加上如下代码: <p onMouseMove="anniu()">你敢碰我,我就给点颜色你看!</p> <Script Language = "VBScript"> sub anniu document.fgColor=int(256*256*256*rnd) end sub </Script>