博文
域名查询代码(2006-06-29 11:17:00)
摘要：http://www.aspprogram.cn/html/article/2008429134647.html......
浮动窗口(2006-06-19 19:06:00)
摘要：<div id="img" style="position:absolute; left:35px; top:556px; width:120;
height:172">
<img src="injob.jpg" width=100 height=100></img>
</div>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30;
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
img.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = img.offsetHeight;
Woffset = img.offsetWidth;
img.style.left = xPos + document.body.scrollLeft;
img.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos =......
提交不刷新(2006-06-19 11:57:00)
摘要：<% str=request.form("text2")&request.form("text") str=str&"<br>" %><HTML> <HEAD> <META NAME="save" CONTENT="history"> <STYLE> .sHistory {behavior:url(#default#savehistory);} </STYLE> </HEAD> <BODY><table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><%=str%></td> </tr></table><p> </p><form name="form1" method="post" action=""> <div align="left"> <input name="text" type=text class=sHistory id=oPersistInput> <input type="submit" name="Submit" value="提交"> <input name="text2" type="hidden" value="<%=str%>"> </div></form></BODY> </HTML> ......
asp播放器代码大全(2006-06-18 13:46:00)
摘要：1.avi格式
<object id="video" width="400" height="200" border="0" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"><param name="ShowDisplay" value="0"><param name="ShowControls" value="1"><param name="AutoStart" value="1"><param name="AutoRewind" value="0"><param name="PlayCount" value="0"><param name="Appearance value="0 value="""><param name="BorderStyle value="0 value="""><param name="MovieWindowHeight" value="240"><param name="MovieWindowWidth" value="320"><param name="FileName" value="file:///D|/work/vod/Mbar.avi"><embed width="400" height="200" border="0" showdisplay="0" showcontrols="1" autostart="1" autorewind="0" playcount="0" moviewindowheight="240" moviewindowwidth="320" filename="file:///D|/work/vod/Mbar.avi" src="Mbar.avi"></embed> </object>
2.mpg格式
<object classid="clsid:05589FA1-C356-11CE-BF01-00AA0055595A" id="ActiveMovie1" width="239" height="250"><param name="Appearance"......
网页特效(2006-06-10 12:43:00)
摘要：
HTML特效代码
1。忽视右键 <body oncontextmenu="return false"> 或 <body style="overflow-y:hidden"> 2。加入背景音乐 IE:<bgsound src="*.mid" loop=infinite> NS:<embed src="*.mid" autostart=true hidden=true loop=true> </embed> *.mid你的背景音乐的midi格式文件 3。简单的window.open方法 <a href="#" onclick="javascript :window.open(文件路径/文件名,newwindow, toolbar=no,scrollbars=yes,resizable=no,top=0,left=0, width=400,height=300);">文字或图片</a> 参数解释： <SCRIPT LANGUAGE="javascript"> js脚本开始； window.open 弹出新窗口的命令； 文件路径/文件名 弹出窗口的文件名； newwindow 弹出窗口的名字（不是文件名），非必须，可用空代替； width=400 窗口宽度； height=300 窗口高度； top=0 窗口距离屏幕上方的象素值； left=0 窗口距离屏幕左侧的象素值；&n......
如何设计一个成功的网站(2006-06-05 19:04:00)
摘要：随着网络技术的不断发展，网络应用已经渗透到人类社会的各个角落。作为网络世界的支撑点的网站，更是人们关注的热点：政府利用网站宣传自己的施政纲领，日益成为与百姓交流的直通车；企业利用网站宣传自己的形象，挖掘无限商机；个人利用网站展示个性风采，创建彼此沟通的桥梁。越来越多的人希望拥有网站，开辟网络世界里的一片天地。如何设计一个出色的网站呢？关于这个问题，人们讨论的很多，可以讨论的内容也很多，加之网络技术的飞速发展，很难提出一个绝对权威和正确的设计思路，笔者不才，根据自己的设计体 会，总结出以下基本设计思路： 一、定位网站的主题和名称 网站的主题也就是网站的题材，网站设计开始首先遇到的问题。网站题材千奇百怪,琳琅满目，只要想的到，就可以把它制作出来。下面是美国《个人电脑》杂志(PC Magazine)评出的99年度排名前100位的全美知名网站的十类题材：第1类：网上求职；第2类：网上聊天／即时信息/ ICQ；第3类：网上社区／讨论/邮件列表；第4类：计算机技术；第5类：网页/网站开发；第6类：娱乐网站；第7类：旅行；第8类：参考/资讯；第9类：家庭/教育；10类：生活/时尚；每个大类都可以继续细分，比如娱乐类再分为体育/电影/音乐等小类，音乐又可以按格式分为MP3，VQF，Ra等，按表现形式分古典，现代，摇滚等。同时，各个题材相联系和交叉结合可以产生新得题材，例如旅游论坛(旅游+讨论)，经典入球播放(足球+影视)按这样分下去，题材可以有成千上万种。这么多题材，如何选择呢？遵循的原则如下：1、主题要小而精：定位要小，内容要精。如果你想制作一个包罗万象的站点，把所有你认为精彩的东西都放在上面，那么往往会事与愿违，给人的感觉是没有主题，没有特色，样样有，却样样都很肤浅，因为你不可能有那么多的精力去维护它。网站的最大特点就是新和快，目前最热门的个人主页都是天天更新甚至几小时更新一次。最新的调查结果也显示，网络上的"主题站"比"万全站"更受人们喜爱，就好比专卖店和百货商店，如果我需要买某一方面的东西，肯定会选择专买店。2、题材最好是你自己擅长或者喜爱的内容。比如：你擅长编程，就可以建立一个编程爱好者网站；对足球感兴趣，可以报道最新的战况，球星动态等。这样在制作时，才不会觉得无聊或者力不从心。兴趣是制作网站的动力，没有热情，很难设计制......
ASP编程中15个非常有用的例子(2006-05-27 11:57:00)
摘要：ASP编程中15个非常有用的例子
1.如何用Asp判断你的网站的虚拟物理路径?
答 使用Mappath方法
<p align="center"><font size="4" face="Arial"><b>
The Physical path to this virtual website is:
</b></font>
<font color="#FF0000" size="6" face="Arial">
<%= Server.MapPath("\")%>
</font></p>
2.我如何知道使用者所用的浏览器？
答 使用the Request object方法
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
3。如何计算每天的平均反复访问人数?
答 解决方法
<% startdate=DateDiff("d",Now,"01/01/1990")
if strdate<0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) %>
显示结果
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998
4 如何显示随机图象?
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
%>
显示
<img src="<%=dpic%>>">
5.如何回到先前的页面?
答<a href=......
通用分页代码(2006-05-27 11:47:00)
摘要：<% dim rs,sql,i
filePath = Server.MapPath("66.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
set rs =Server.CreateObject("adodb.recordset") sql="select * from info order by id" rs.open sql,oConn,1,1%><% rs.pagesize=20 page=clng(Request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.AbsolutePage = page%><table width="620" border="0"> <% for i=1 to rs.pagesize %> <tr> <td width="128" valign="top"><% response.write rs("tel") %></td> <td width="482"><% respo......
asp错误提示(2006-05-27 11:41:00)
摘要：asp错误提示
MicrosoftVBScript语*错误(0x800A03E9)-->内存不足MicrosoftVBScript语*错误(0x800A03EA)-->语*错误MicrosoftVBScript语*错误(0x800A03EB)-->缺少 ':'MicrosoftVBScript语*错误(0x800A03ED)-->缺少 '('MicrosoftVBScript语*错误(0x800A03EE)-->缺少 ')'MicrosoftVBScript语*错误(0x800A03EF)-->缺少 ']'MicrosoftVBScript语*错误(0x800A03F2)-->缺少标识符MicrosoftVBScript语*错误(0x800A03F3)-->缺少 '='MicrosoftVBScript语*错误(0x800A03F4)-->缺少 'If'MicrosoftVBScript语*错误(0x800A03F5)-->缺少 'To'MicrosoftVBScript语*错误(0x800A03F6)-->缺少 'End'MicrosoftVBScript语*错误(0x800A03F7)-->缺少 'Function'MicrosoftVBScript语*错误(0x800A03F8)-->缺少 'Sub'MicrosoftVBScript语*错误(0x800A03F9)-->缺少 'Then'MicrosoftVBScript语*错误(0x800A03FA)-->缺少 'Wend'MicrosoftVBScript语*错误(0x800A03FB)-->缺少 'Loop'MicrosoftVBScript语*错误(0x800A03FC)-->缺少 'Next'MicrosoftVBScript语*错误(0x800A03FD)-->缺少 'Case'MicrosoftVBScript语*错误(0x800A03FE)-->缺少 'Select'MicrosoftVBScript语*错误(0x800A03FF)-->缺少表达式MicrosoftVBScript语*错误(0x800A0400)-->缺少语句MicrosoftVBScript语*错误......
asp生成静态页面方法一(2006-05-17 14:43:00)
摘要：首先，模板需要在线修改，则应采用数据库保存模板代码
所谓的模板，就是设计完工的标准的HTML代码，其中需要由程序实现的功能部分将采用特殊字符串代替。然，这些特殊字符串需要在显示的时候被编译为对应的功能。
1，设计数据库testmb.mdb 新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型）
2，假设第一模板内容代码
将下列代码拷贝到m_html字段中 以下是代码片段： <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>testmb</title> </head> <body leftmargin="0" topmargin="0"> <table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2"> <tr align="right" bgcolor="#CCCCCC"> <td height="20" colspan="2">$cntop$</td> </tr> <tr valign="top"> <td width="25%" bgcolor="#e5e5e5">$cnleft$</td> <td width="74%" bgcolor="#f3f3f3">$cnright$</td> </tr> </table> </body> </html> 注意$cntop$、$cnleft$、$cnright$，它们将要实现某些具体的程序功能
3，建立数据库连接文件conn.......