爱国设计
业内动态 | 技术文章 | 相关下载 | 设计素材 | 酷站欣赏 | 网站设计 | 娱乐新区 | 论坛交流
您的位置：首页 > 技术专栏 > WEB编程 > ASP技术 >  
常用WEB代码一
作者：爱国者 | 时间：2006-03-17 | 来自：Original
浏览数： | 文章有0条评论 | 发布者：makeday
　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　大 中 小
1. ASP与Access数据库连接：
以下是代码片段：
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 源数据表" (把源数据表的记录添加到目标 数据表) 

数据记录统计函数：

以下是代码片段：
AVG(字段名) 得出一个表格 栏平均值 
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行 数统计 
MAX(字段名) 取得一个表格栏最大的值 
MIN(字段 名 ) 取得一个表格栏最小的值 
SUM(字段名) 把数据栏的值相加  

引用以上函数的方法：

以下是代码片段：
sql="select sum(字段名)  as 别名 from 数据表 where 条件表达式" 
set rs=conn.excute(sql) 

用 rs("别名") 获取统的计值，其它函数运用同上。



数据表的建立 和删除：

以下是代码片段：
CREATE TABLE 数据表 名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 
例：CREATE TABLE tab01(name varchar (50),datetime default now()) 
DROP TABLE 数据表名 称 (永久性删除一个数据表) 



记录集对象的方法：

以下是代码片段：
rs.movenext 将记录指针从 当前的位置向下移一行 
rs.moveprevious 将记录指针从当前的位置向上 移一行 
rs.movefirst 将记录指针移到数据表第一行 
rs.movelast 将记录指针移到数据表最后一行 
rs.absoluteposition=N 将记录指针移到数据表第N行 
rs.absolutepage=N 将记录指针移到第N页的第一行 
rs.pagesize=N 设置每页为N条记录 
rs.pagecount 根据  pagesize 的设置返回总页数 
rs.recordcount 返回记录总 数 
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否  
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否  
rs.delete 删除当前记录，但记录指针不会向下移动 
rs.addnew 添加记录到数据表末端 
rs.update 更新数据表记 录 


判断所填数据是数字型

以下是代码片段：
if not isNumeric (request("字段名称")) then 
response.write "不是数字" 
else 
response.write "数字" 
end if 

 

页面执行时间：


以下是代码片段：
<% startime = Timer()%> 
.... .... 
内容  
... ... 
结尾 
<% 
Dim Endtime 
Endtime = Timer() 
response.write "页面执行时间： <font color=red>"&FormatNumber((Endtime-Startime)*1000,5) &"</font> 毫秒" 
% > 

定义打开网页时起始窗口的大小

以下是代码片段：
<script for="window" event="onload"> 
window.resizeTo(500,300) 
</script> 


随机数:

以下是代码片段：
<%randomize%> 
<%=(int(rnd()*n)+1)%> 



查询数据时得到的记录关键字用红色显示：

以下是代码片段：
replace(RS("字段 X"),searchname,"<font color=#FF0000>" & searchname&am p;nb sp;& "</font>") 



通过asp的手段来检查来访者是否用了代理

以下是代码片段：
<%  if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <>"" then 
response.write "<font color=#FF0000>您通过了代理服务 器，"& _ 
"真实的IP为"&Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 
end if 
% > 


判断上一页的来源

以下是代码片段：
request.servervariables ("HTTP_REFERER") 
javascript: document.referrer 



清除缓存，重新加载页面

以下是代码片段：
<% response.expires = 0 
response.expiresabsolute = now() - 1 
response.addHeader "pragma","no-cache" 
response.addHeader "cache-control","private" 
Response.cachecontrol = "no-cache" 
% > 



检索并删除数据库里的重复记录

以下是代码片段：
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 

strfile=server.MapPath("fileName") 
deletefile(strfile) 
%> 


ASP字数计算函数

以下是代码片段：
<% 
Function WordCount(strInput) 
Dim strTemp 
strTemp = Replace(strInput, vbTab, " ") 
strTemp = Replace(strTemp, vbCr, " ") 
strTemp = Replace(strTemp, vbLf, " ") 

’ 删除字首字尾空格 
strTemp = Trim(strTemp)  

’ 替换为一个空格 
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">
window.opener.location="父窗口页面"
window.close()
</script> 

文本框输入限制：
以下是代码片段：
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if  (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint ("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRan ge.text.substr(oSel.text.length)
return reg.test(str)
}
</script>

小写英文： <xmp style= "display:inline"> </xmp>
<input onkeypress = "return regInput(this, /^ [a-z]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[a-z] *$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[a-z] *$/, event.dataTransfer.getData(’Text’))"
style="ime-mode:Disabled"
><br>

大写英文： <xmp style= "display:inline"> </xmp>
<input onkeypress = "return regInput(this, /^ [A-Z]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[A-Z] *$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[A-Z] *$/, event.dataTransfer.getData(’Text’))"
style="ime- mode:Disabled">
<br>

任意数字： <xmp style="display:inline"> </xmp>
<input onkeypress = "return regInput(this, /^ [0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9] *$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[0-9] *$/, event.dataTransfer.getData(’Text’))"
style="ime-mode:Disabled"
><br>

限2位小数： <xmp style="display:inline"> </xmp>
<input onkeypress = "return regInput (this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2} $/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2} $/, event.dataTransfer.getData(’Text’))"
style="ime-mode:Disabled"
> 如: 123.12<br>


日　 期： <xmp style="display:inline"> </xmp>
<input onkeypress = "return regInput (this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)? $/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d{1,4}([-\/](\d {1,2}([-\/](\d{1,2})?)?)?)?$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^\d{1,4}([-\/](\d {1,2}([-\/](\d{1,2})?)?)?)?$/, event.dataTransfer.getData(’Text’))"
style="ime-mode:Disabled"
> 如: 2002-9-29<br>

任意中文：<xmp style="display:inline"> </xmp>
<input onkeypress = "return regInput (this, /^$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[\u4E00-\u9FA5] *$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[\u4E00-\u9FA5] *$/, event.dataTransfer.getData(’Text’))"
><br>

部 分英文：<xmp style="display:inline"> </xmp>
<input onkeypress = "return regInput(this, /^ [a-e]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[a-e] *$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[a-e] *$/, event.dataTransfer.getData(’Text’))"
style="ime-mode:Disabled"
> 范围: a,b,c,d,e<br>

部分中文： <xmp style="display:inline"> </xmp>

<script language=javascript>
function checkChinese(oldLength, obj)
{
var oTR = window.document.selection.createRange()
var reg = /[^一二三四五六七八九十]/g
oTR.moveStart ("character", -1*(obj.value.length-oldLength))
oTR.text = oTR.text.replace(reg, "")
}
</script>
<input onkeypress="return false" onkeydown="setTimeout( ’checkChinese(’+this.value.length+’,’+this.uniqueID+’)’, 1)"
onpaste = "return regInput(this, /^[一二三四五六七八九 十]*$/, window.clipboardData.getData(’Text’))"
ondrop = "return regInput(this, /^[一二三四五六七八九 十]*$/, event.dataTransfer.getData(’Text’))"
> 范围:  一二三四五六七八九十<br> 

[Ctrl+A 全选  Ctrl+C 复制]

不能点右键，不用CTRL+A， 不能复制作!
以下是代码片段：
<body oncontextmenu="window.event.returnValue=false" 
onkeypress="window.event.returnValue=false" 
onkeydown="window.event.returnValue=false" 
onkeyup="window.event.returnValue=false" 
ondragstart="window.event.returnValue=false" 
onselectstart="event.returnValue=false"> 
</body> 
验证码: 匿名
 信息检索
COPYRIGHT 2005-2006 BY EGZ'DESIGN ALL RIGHTS 程序支持 | 联系我们 | 信息反馈 | 在线留言 |


爱国设计™ 版权所有 陕ICP备05002767号 联系QQ

本站采用符合W3C标准的XHTML1.1代码格式编写 　本站使用符合W3C标准的CSS+DIV格式布局排版 　 　服务器端脚本采用PHP4编写 　本站后台数据库采用MySQL