浏览模式: 正常浏览 | 列表浏览
分类: ASP Technology | < | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | >

计数器

[ 2006-04-27 13:37:41 | 作者: kite ]
文件一：GLOBAL.ASA
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_onStart
Application("OnLine") = 0
End Sub


Sub Session_onStart
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.Unlock
End Sub

</SCRIPT>

文件二：COUNTER.ASP

<%@language=VBscript%>
<Html>
<head>
<title>
防止刷新的计数器
</title>
</head>
<body>
<center>
<font color=blue size=5>
...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 310

整理了一些ASP初学者常用的代码

[ 2006-04-27 13:20:37 | 作者: kite ]
1.获得系统时间:
<%=now()%>
2.取得来访用的IP:
<%=request.serverVariables("remote_host")%>
3.获得系统,浏览器版本:
<script>
window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
</script>
4.去除IE混动条:
<body scroll="no">
<body style="overflow-y:hidden">
5.进入网站,跳出广告:
<script language="javascript">
<!--
<!-- 注意更改文件所在路径-->
window.open(''http://www.XXXXXX.com&#39;&#39;,&#39;&#39;&#39;&#39;,&#39;&#39;height=200,width=300,top=0,left=30&#39;&#39;);
...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 211

SQL语句参考及记录集对象详解

[ 2006-04-27 13:18:37 | 作者: kite ]
1. ASP与Access数据库连接：

<%@ language=VBscript%>
<%
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数据库连接：

<%@ language=VBscript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA ...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 232

倒计时间代码

[ 2006-04-27 13:16:39 | 作者: kite ]
倒计时一
<%@ Language=VBScript %>
<%
response.write "今天是"
response.write formatDateTime(Date(),1) & ","
'格式化为长日期格式输出显示
response.write " 离高考还有"
response.write "<font color=blue><u>"
'调用DateDiff函数,计算日期间隔.
response.write DateDiff("d",Date(),"08-06-07")
response.write "</font></u>"
response.write "天"
%>

倒计时二
<!-- 倒记时 start -->
...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 442

时间显示脚本

[ 2006-04-27 13:00:13 | 作者: kite ]
<script>
  var enabled = 0; today = new Date();
  var day;
  if(today.getDay()==0) day = "星期日"
  if(today.getDay()==1) day = "星期一"
  if(today.getDay()==2) day = "星期二"
  if(today.getDay()==3) day = "星期三"
  if(today.getDay()==4) day = "星期四"
  if(today.getDay()==5) day = "星期五"
  if(today.getDay()==6) day = "星期六"
  document.fgColor = "000000";
  date = (today.getYear()) + "年" + (today.getMonth() + 1 ) + ...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 321

realplay页面播放器代码

[ 2006-04-27 12:57:51 | 作者: kite ]
<object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa width=500 height=175>
<param name=src value=http://127.0.0.1/ap04072/01.wma>
<param name=console value=clip1><param name=controls value=imagewindow>
<param name=autostart value=true>
</object><object classid=clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa height=32 width=500>
<param name=src value=rtsp://127.0.0.1/aaa/千变魔手2.rmvb>
...

阅读全文
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 439

删除代码

[ 2006-04-21 21:31:41 | 作者: kite ]
<!-- #include file="conn2.asp" -->
<% id2=request.QueryString("id") %>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql= "delete * from notice where id="&id2&""
set rs=conn.execute(sql)
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
    response.write "alert('成功删除！');" & Chr(13)
    response.write "window.document.location.href='set2.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
Response.End
%>
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 272

修改代码

[ 2006-04-21 21:30:17 | 作者: kite ]
<!-- #include file="conn2.asp" -->
<%
Dim s1
s1= Request("bjgg")
set rs=server.createobject("adodb.recordset")
sql="select * from bjgg"
rs.open sql,conn,1,3
rs("bjgg")=s1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "set1.asp"
%>
分类: ASP Technology | 永久链接 | 评论: 0 | 引用: 0 | 阅读: 286
< | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | >