Kite's Blog 技术文章版

<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 ) + ...

阅读全文

<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>
...

阅读全文

<!-- #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
%>

<!-- #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"
%>

1. 使用任何文本编辑器（如“记事本”），创建包含下列行的文件：
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

2. 在 Windows\System 或 Winnt\System32 文件夹中，以 Show Desktop.scf 名称保存新文件。注意，“记事本”可能会自动将 .txt 作为文件扩展名。如果“记事本”添加了该扩展名，请将其删除。如果将文件命名为 Show Desktop.scf.txt，则这些步骤无效。

3. 退出“记事本”。

4. 使用 Windows 资源管理器或“我的电脑”，右键单击“Show Desktop .scf”文件，然后单击“创建快捷方式”。

5. 将新的快捷方式复制到相应的文件夹中。
...

阅读全文

<%
dim time2
time2=date()
if time2<#2006-5-1# then
response.write"Sorry,你暂不能浏览本网站，本网站的正式开通时间为2006年5月1日0时0分0秒！！！"
%>
<%else%>
你的网页码代码
<% end if %>

只要在首页加上上面的语句就行了。不过这种方法不是很好，只要人地知道有其他页面的地址就可以避过首页的验证了。

首页面

<SCRIPT LANGUAGE="VBSCRIPT">
Sub Checkdata()
If Attend.song1.Value = Empty Then
Window.Alert "“歌手”一定要填写哦..."
Exit Sub
End if
If Attend.song2.Value = Empty Then
Window.Alert "“歌名”一定要填写哦..."
Exit Sub
End if
   If Attend.song3.Value = Empty Then
Window.Alert "“文件URL”一定要填写哦..."
Exit Sub
End if
...

阅读全文

将下面代码做成一个ASP文件，如SQL.asp
在你检查通过的面页加上<!--#include file="SQL.asp"-->就可以了

<%
'--------定义部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
'自定义需要过滤的字串,用 "枫" 分隔
Fy_In = "\'枫;枫and枫exec枫insert枫select枫delete枫update枫count枫*枫%枫chr枫mid枫master枫truncate枫char枫declare枫or枫'枫\"
'----------------------------------
%>

<%
Fy_Inf = split(Fy_In,"枫")
'--------POST部份------------------
...

阅读全文