广场 › 『网站建设』 › 【注意】整理了一些初学者常用的代码（更新）

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:09:06

【注意】整理了一些初学者常用的代码（更新）

1.获得系统时间:
 
2.取得来访用的IP:
3.获得系统,浏览器版本:
window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
4.去除IE混动条:

5.进入网站,跳出广告:
window.open(''
http://www.roc3000.com/lnbbs/pic/url.gif
http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30'');
// -->
6.随机数:
N为可改变数
7.向上混动代码:
hhhhhhhhhhhhhhhhhhh
8.自动关闭网页:
本页10秒后自动关闭,请注意刷新页面
9.随机背景音乐:
.mid" loop="-1">
可以修改数字，限制调用个数，我这里是６０个．
10.自动刷新本页面:

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:09:38

11.ACCESS数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
12.SQL数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
13.用键盘打开网页代码:
<script language="javascript">
function ctlent(eventobject)
{
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))
{
   window.open('网址','','')
}
}
</script>

这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:09:52

14.让层不被控件复盖代码:
<div z-Index:2><object xxx></object></div> ＃ 前面
<div z-Index:1><object xxx></object></div> ＃ 后面
<div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div>
<div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>
16.VBS弹出窗口小代码:
<script language=vbscript>
msgbox"你还没有注册或登陆论坛","0","精品论坛"
location.href = "login.asp"
</script>

16.使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
17.使用FSO读取文件内容的函数
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
18.使用FSO读取文件某一行的函数
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function
19.使用FSO写文件某一行的函数
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function
20.使用FSO添加文件新行的函数
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function
21.读文件最后一行的函数
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:10:13

24.点击返回上页代码:

24.点击刷新代码:

24.点击刷新代码2:



25.弹出警告框代码:

26.状态栏信息

27.背景色变换

function BgButton(){
if (document.bgColor=='#00ffff')
 {document.bgColor='#ffffff';}
else{document.bgColor='#00ffff';}
}
28.点击打开新窗口
<form>
<p><input TYPE="button" value="打开新窗口" onCLICK="NewWindow()"></p>
</form>
<script language="javascript"><!--
function NewWindow(){window.open(http://www.roc3000.com/lnbbs/pic/url.gif "http://www.mcmx.com";,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}
// --></script></body>

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:12:12

29.分页代码:
<%''本程序文件名为：Pages.asp%>
<%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>
<!--#Include File="adovbs.inc"-->
<%''＊建立数据库连接，这里是Oracle8.05数据库
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

Set rs=Server.CreateObject("ADODB.Recordset")   ''创建Recordset对象
rs.CursorLocation=adUseClient       ''设定记录集指针属性
''＊设定一页内的记录总数，可根据需要进行调整
rs.PageSize=10             

''＊设置查询语句     
StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID"      
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title>分页示例</title>
<script language=javascript>
//点击"[第一页]"时响应：
function PageFirst()
{
  document.MyForm.CurrentPage.selectedIndex=0;
  document.MyForm.CurrentPage.onchange();
}
//点击"[上一页]"时响应：
function PagePrior()
{  
  document.MyForm.CurrentPage.selectedIndex--;
  document.MyForm.CurrentPage.onchange();
}
//点击"[下一页]"时响应：
function PageNext()
{
  document.MyForm.CurrentPage.selectedIndex++;
  document.MyForm.CurrentPage.onchange();    
}
//点击"[最后一页]"时响应：
function PageLast()
{
  document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
  document.MyForm.CurrentPage.onchange();
}
//选择"第？页"时响应：
function PageCurrent()
{ //Pages.asp是本程序的文件名
  document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
  document.MyForm.submit();
}
</script>
</HEAD>
<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">

<%IF rs.Eof THEN
  Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
ELSE
  ''指定当前页码
  If Request("CurrentPage")="" Then
    rs.AbsolutePage=1
  Else
    rs.AbsolutePage=CLng(Request("CurrentPage"))
  End If
 
  ''创建表单MyForm,方法为Get
  Response.Write("<form method=Get name=MyForm>")
  Response.Write("<p align=center><font size=2 color=#008000>")
  ''设置翻页超链接
  if rs.PageCount=1 then
    Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
  else
  if rs.AbsolutePage=1 then
    Response.Write("[第一页] [上一页] ")
    Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")
    Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")
  else
      if rs.AbsolutePage=rs.PageCount then
    Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
    Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
    Response.Write("[下一页] [最后一页] ")
      else
      Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
      Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
      Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")
      Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")
      end if
  end if
  end if
 
  ''创建下拉列表框，用于选择浏览页码
  Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")  
  For i=1 to rs.PageCount
    if rs.AbsolutePage=i then
     Response.Write("<option selected>"&i&"</option>")''当前页码
    else
     Response.Write("<option>"&i&"</option>")
    end if
  Next
  Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")
  Response.Write("</form>")
 
  ''创建表格，用于显示
  Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")  
  Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")
 
  Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")
    
  Set Columns=rs.Fields
 
  ''显示表头
  For i=0 to Columns.Count-1
    Response.Write("<td align=center width=200 height=13>")
    Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")
  Next
  Response.Write("</tr>")
  ''显示内容
  For i=1 to rs.PageSize
    Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")
    For j=0 to Columns.Count-1
  Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")
    Next
    Response.Write("</tr>")
    
    rs.movenext
    if rs.EOF then exit for
  Next
 
  Response.Write("</table>")

END IF
%>
</BODY>
</HTML>

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:12:47

推荐]利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)
<%
':::   BMP,GIF,JPGandPNG          :::
 
'::: Thisfunctiongetsaspecifiednumberofbytesfromany:::
'::: file,startingattheoffset(base1)       :::
':::              :::
'::: Passed:            :::
':::     flnm  =>Filespecoffiletoread     :::
':::     offset   =>Offsetatwhichtostartreading     :::
':::     bytes     =>Howmanybytestoread    :::
':::              :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functionGetBytes(flnm,offset,bytes)
 DimobjFSO
 DimobjFTemp
 DimobjTextStream
 DimlngSize
 onerrorresumenext
 SetobjFSO=CreateObject("scripting.FileSystemObject")
 
 'First,wegetthefilesize
 SetobjFTemp=objFSO.GetFile(flnm)
 lngSize=objFTemp.Size
 setobjFTemp=nothing
 fsoForReading=1
 SetobjTextStream=objFSO.OpenTextFile(flnm,fsoForReading)
 ifoffset>0then
 strBuff=objTextStream.Read(offset-1)
 endif
 ifbytes=-1then    'GetAll!
 GetBytes=objTextStream.Read(lngSize) 'ReadAll
 else
 GetBytes=objTextStream.Read(bytes)
 endif
 objTextStream.Close
 setobjTextStream=nothing
 setobjFSO=nothing
endfunction

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::              :::
'::: Functionstoconverttwobytestoanumericvalue(long)   :::
'::: (bothlittle-endianandbig-endian)      :::
':::              :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functionlngConvert(strTemp)
 lngConvert=clng(asc(left(strTemp,1))+((asc(right(strTemp,1))*256)))
endfunction
functionlngConvert2(strTemp)
 lngConvert2=clng(asc(right(strTemp,1))+((asc(left(strTemp,1))*256)))
endfunction

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::              :::
'::: Thisfunctiondoesmostoftherealwork.Itwillattempt :::
'::: toreadanyfile,regardlessoftheextension,andwill:::
'::: identifyifitisagraphicalimage.     :::
':::              :::
'::: Passed:            :::
':::     flnm  =>Filespecoffiletoread     :::
':::     width     =>widthofimage        :::
':::     height   =>heightofimage      :::
':::     depth     =>colordepth(innumberofcolors)   :::
':::     strImageType=>typeofimage(e.g.GIF,BMP,etc.):::
':::              :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functiongfxSpex(flnm,width,height,depth,strImageType)
 dimstrPNG
 dimstrGIF
 dimstrBMP
 dimstrType
 strType=""
 strImageType="(unknown)"
 gfxSpex=False
 strPNG=chr(137)&chr(80)&chr(78)
 strGIF="GIF"
 strBMP=chr(66)&chr(77)
 strType=GetBytes(flnm,0,3)
 ifstrType=strGIFthen       'isGIF
 strImageType="GIF"
 Width=lngConvert(GetBytes(flnm,7,2))
 Height=lngConvert(GetBytes(flnm,9,2))
 Depth=2^((asc(GetBytes(flnm,11,1))and7)+1)
 gfxSpex=True
 elseifleft(strType,2)=strBMPthen   'isBMP
 strImageType="BMP"
 Width=lngConvert(GetBytes(flnm,19,2))
 Height=lngConvert(GetBytes(flnm,23,2))
 Depth=2^(asc(GetBytes(flnm,29,1)))
 gfxSpex=True
 elseifstrType=strPNGthen     'IsPNG
 strImageType="PNG"
 Width=lngConvert2(GetBytes(flnm,19,2))
 Height=lngConvert2(GetBytes(flnm,23,2))
 Depth=getBytes(flnm,25,2)
 selectcaseasc(right(Depth,1))
  case0
  Depth=2^(asc(left(Depth,1)))
  gfxSpex=True
  case2
  Depth=2^(asc(left(Depth,1))*3)
  gfxSpex=True
  case3
  Depth=2^(asc(left(Depth,1))) '8
  gfxSpex=True
  case4
  Depth=2^(asc(left(Depth,1))*2)
  gfxSpex=True
  case6
  Depth=2^(asc(left(Depth,1))*4)
  gfxSpex=True
  caseelse
  Depth=-1
 endselect

 else
 strBuff=GetBytes(flnm,0,-1)    'Getallbytesfromfile
 lngSize=len(strBuff)
 flgFound=0
 strTarget=chr(255)&chr(216)&chr(255)
 flgFound=instr(strBuff,strTarget)
 ifflgFound=0then
  exitfunction
 endif
 strImageType="JPG"
 lngPos=flgFound+2
 ExitLoop=false
 dowhileExitLoop=FalseandlngPos<lngSize

  dowhileasc(mid(strBuff,lngPos,1))=255andlngPos<lngSize
  lngPos=lngPos+1
  loop
  ifasc(mid(strBuff,lngPos,1))<192orasc(mid(strBuff,lngPos,1))>195then
  lngMarkerSize=lngConvert2(mid(strBuff,lngPos+1,2))
  lngPos=lngPos+lngMarkerSize +1
  else
  ExitLoop=True
  endif
    loop
    '
    ifExitLoop=Falsethen
    Width=-1
    Height=-1
    Depth=-1
    else
    Height=lngConvert2(mid(strBuff,lngPos+4,2))
    Width=lngConvert2(mid(strBuff,lngPos+6,2))
    Depth=2^(asc(mid(strBuff,lngPos+8,1))*8)
    gfxSpex=True
    endif
      
 endif
endfunction

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::  TestHarness           :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

'Totest,we'lljusttrytoshowallfileswitha.GIFextensionintherootofC:
SetobjFSO=CreateObject("scripting.FileSystemObject")
SetobjF=objFSO.GetFolder("c:\")
SetobjFC=objF.Files
response.write"<tableborder=""0""cellpadding=""5"">"
ForEachf1inobjFC
ifinstr(ucase(f1.Name),".GIF")then
    response.write"<tr><td>"&f1.name&"</td><td>"&f1.DateCreated&"</td><td>"&f1.Size&"</td><td>"
    ifgfxSpex(f1.Path,w,h,c,strType)=truethen
    response.writew&"x"&h&""&c&"colors"
    else
    response.write""
    endif
    response.write"</td></tr>"
endif
Next
response.write"</table>"
setobjFC=nothing
setobjF=nothing
setobjFSO=nothing

%>

大傻瓜不傻 发表于 2005 年 6 月 12 日 11:13:30

以上内容来自:http://www.roc3000.com/lnbbs/show.asp?id=2185&bd=201&totable=1

查看完整版本: 【注意】整理了一些初学者常用的代码（更新）