设为首页收藏本站
切换到宽版

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
西京校友网»西京校友论坛 › 西京校友在线 › 西京在线学习班 › 整理了一些初学者常用的代码，放在网页中合适位置 ...
.COM/.NET/.ORG 国际域名注册全功能虚拟主机/免备案虚拟主机
返回列表 发新帖
查看: 2281|回复: 9

整理了一些初学者常用的代码，放在网页中合适位置

[复制链接]
枯木

22

主题

53

回帖

3462

积分

论坛元老

积分
3462
发表于 2003-8-8 17:25:45 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
1.获得系统时间:
<%=now()%>
2.取得来访用的IP:
<%=request.serverVariables("remote_host")%>
3.获得系统,浏览器版本:
<s cript>
window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
</s cript>
4.去除IE混动条:
<body scroll="no">
<body style="overflow-y:hidden">
5.进入网站,跳出广告:
<s cript language="javas cript">
<!--
<!-- 注意更改文件所在路径-->
window.open(''http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30'');
// -->
</s cript>
6.随机数:
<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数
回复

使用道具 举报

枯木

22

主题

53

回帖

3462

积分

论坛元老

积分
3462
 楼主| 发表于 2003-8-8 17:26:56 | 显示全部楼层
11.ACCESS数据库连接:

<%

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

\'更改数据库名字

db=\"data/dvBBS5.mdb\"

Set conn = Server.CreateObject(\"ADODB.Connection\")

connstr=\"rovider=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.用键盘打开网页代码:

<s cript language=\"javas cript\">

function ctlent(eventobject)

{

if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))

{

window.open(\'网址\',\'\',\'\')

}

}

</s cript>



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

待续...........
╱ヾ 小學時上語文課老師講 ヾ╱oЮ \\\\\\\"帥\\\\\\\"的含意，我百思不得Юo︵ ★其觧，同桌MM偷偷递我小鏡子一照★ ㄨㄨ 哦！殺那閒我突然明白了ㄨㄨ
回复 支持 反对

使用道具 举报

枯木

22

主题

53

回帖

3462

积分

论坛元老

积分
3462
 楼主| 发表于 2003-8-8 17:27:56 | 显示全部楼层
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>
15.动网FLASH广告代码:
<object classid=\"clsid27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=\"468\" height=\"60\"><param name=movie value=\"images/yj16d.swf\"><param name=quality value=high><embed src=\"images/dvbanner.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\";;; type=\"application/x-shockwave-flash\" width=\"468\" height=\"60\"></embed></object>
16.VBS弹出窗口小代码:
<s cript language=vbs cript>
msgbox\"你还没有注册或登陆论坛\",\"0\",\"精品论坛\"
location.href = \"login.asp\"
</s cript>
待续......................
╱ヾ 小學時上語文課老師講 ヾ╱oЮ \\\\\\\"帥\\\\\\\"的含意，我百思不得Юo︵ ★其觧，同桌MM偷偷递我小鏡子一照★ ㄨㄨ 哦！殺那閒我突然明白了ㄨㄨ
回复 支持 反对

使用道具 举报

枯木

22

主题

53

回帖

3462

积分

论坛元老

积分
3462
 楼主| 发表于 2003-8-8 17:29:27 | 显示全部楼层
16.使用FSO修改文件特定内容的函数

function FSOchange(filename,Target,String)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Server.CreateObject(\"s cripting.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(\"s cripting.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(\"s cripting.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(\"s cripting.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(\"s cripting.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(\"s cripting.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



待续.........
╱ヾ 小學時上語文課老師講 ヾ╱oЮ \\\\\\\"帥\\\\\\\"的含意，我百思不得Юo︵ ★其觧，同桌MM偷偷递我小鏡子一照★ ㄨㄨ 哦！殺那閒我突然明白了ㄨㄨ
回复 支持 反对

使用道具 举报

枯木

22

主题

53

回帖

3462

积分

论坛元老

积分
3462
 楼主| 发表于 2003-8-8 17:30:48 | 显示全部楼层
24.点击返回上页代码:
<form>
<p><input TYPE=\"button\" value=\"返回上一步\" onCLICK=\"history.back(-1)\"></p>
</form>
24.点击刷新代码:
<form>
<p><input TYPE=\"button\" value=\"刷新按钮一\" onCLICK=\"ReloadButton()\"></p>
</form>
<s cript language=\"javas cript\"><!--
function ReloadButton(){location.href=\"allbutton.htm\";}
// --></s cript>

24.点击刷新代码2:
<form>
<p><input TYPE=\"button\" value=\"刷新按钮二\" onClick=\"history.go(0)\"> </p>
</form>

<form>
<p><input TYPE=\"button\" value=\"打开一个网站\" onCLICK=\"HomeButton()\"></p>
</form>
<s cript language=\"javas cript\"><!--
function HomeButton(){location.href=\"http://nettrain.126.com\";;;}
// --></s cript>

25.弹出警告框代码:
<form>
<p><input TYPE=\"button\" value=\"弹出警告框\" onCLICK=\"AlertButton()\"></p>
</form>
<s cript language=\"javas cript\"><!--
function AlertButton(){window.alert(\"要多多光临呀！\");}
// --></s cript>

26.状态栏信息
<form>
<p><input TYPE=\"button\" value=\"状态栏信息\" onCLICK=\"StatusButton()\"></p>
</form>
<s cript language=\"javas cript\"><!--
function StatusButton(){window.status=\"要多多光临呀！\";}
// --></s cript>

27.背景色变换
<form>
<p><input TYPE=\"button\" value=\"背景色变换\" onClick=\"BgButton()\"></p>
</form>
<s cript>function BgButton(){
if (document.bgColor==\'#00ffff\')
{document.bgColor=\'#ffffff\';}
else{document.bgColor=\'#00ffff\';}
}
</s cript>

28.点击打开新窗口
<form>
<p><input TYPE=\"button\" value=\"打开新窗口\" onCLICK=\"NewWindow()\"></p>
</form>
<s cript language=\"javas cript\"><!--
function NewWindow(){window.open(\"http://www.mcmx.com\";;,\"\",\"height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no\");}
// --></s cript></body>

待续.........................

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 \"rovider=msdaora.1;Data Source=YourSrcName;User ID=YourUserIDassword=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>
<s cript language=javas cript>
//点击\"[第一页]\"时响应：
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=&#39ages.asp?Page=\'+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();
}
</s cript>
</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=javas criptageNext()>下一页</a>] \")
Response.Write(\"[<a href=javas criptageLast()>最后一页</a>] \")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write(\"[<a href=javas criptageFirst()>第一页</a>] \")
Response.Write(\"[<a href=javas criptagePrior()>上一页</a>] \")
Response.Write(\"[下一页] [最后一页] \")
else
Response.Write(\"[<a href=javas criptageFirst()>第一页</a>] \")
Response.Write(\"[<a href=javas criptagePrior()>上一页</a>] \")
Response.Write(\"[<a href=javas criptageNext()>下一页</a>] \")
Response.Write(\"[<a href=javas criptageLast()>最后一页</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>

完结,希望对于初学者有所帮助,谢谢大家支持。



[emb14]
╱ヾ 小學時上語文課老師講 ヾ╱oЮ \\\\\\\"帥\\\\\\\"的含意，我百思不得Юo︵ ★其觧，同桌MM偷偷递我小鏡子一照★ ㄨㄨ 哦！殺那閒我突然明白了ㄨㄨ
回复 支持 反对

使用道具 举报

网路游侠

281

主题

3228

回帖

55万

积分

管理员

积分
551869
发表于 2003-8-8 17:37:15 | 显示全部楼层
不错  推荐  呵呵
网路游侠 www.youxia.org
回复 支持 反对

使用道具 举报

paint

12

主题

27

回帖

3305

积分

论坛元老

积分
3305
发表于 2003-8-9 05:56:18 | 显示全部楼层
？[emb10][emb10][emb10]
回复 支持 反对

使用道具 举报

johnathine

25

主题

90

回帖

3492

积分

论坛元老

积分
3492
发表于 2003-8-9 11:04:17 | 显示全部楼层
很好的。我们一起努力吧。[emb6]
我不是很帅，但是：我就是我！
回复 支持 反对

使用道具 举报

小蛇

6

主题

12

回帖

3100

积分

论坛元老

积分
3100
发表于 2003-8-14 13:12:52 | 显示全部楼层
不错啊
要是哪位同学，朋友，想做网站！有自己的主页！或想买空间、域名！买电脑什么的都可以找我啊！！ QQ:79607884
回复 支持 反对

使用道具 举报

johnathine

25

主题

90

回帖

3492

积分

论坛元老

积分
3492
发表于 2003-8-16 22:54:33 | 显示全部楼层
有空也来帖一些啊。[emb20]
我不是很帅，但是：我就是我！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|西京校友网 ( 陕ICP备11003551号-5 )

GMT+8, 2025-5-6 18:15 , Processed in 0.100788 second(s), 6 queries , MemCache On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表