WEB编程开发常用的代码

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 & "</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 + srcRange.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 = &#