Kite's Blog 技术文章版

<!-- #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部份------------------
...

阅读全文