格式:Download.asp?FileName=要下載的檔案名稱 複製代碼 代碼如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "無效檔案名稱." Response.End End if ' 下面是不希望下載的檔案 FileExt =
<% For each obj in Request.Form response.write "<font color=red>"&obj&"</font><br>" obj=Request.Form(obj) response.write obj&"<br>" Next %> <form name=form action="1.asp" method="post"> <input
如果在session級儲存一個dictionary對象會降低系統的效能,而在application級儲存一個dictionary對象會導致web伺服器崩潰,關於這個就不在多說了。 現在我們要考慮的是dictionary對象在單頁的時候,有哪些設計時的缺陷: 大家可以這麼試試 set rs=server.createobject("adodb.recordset") sql="select * from table" rs.open sql,conn,1,3 set
Function getIpvalue(clientIP)'得到用戶端的IP轉換成長整型,傳回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,".") If UBound(array_Ip)<>3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))
假設在搜尋方塊search中輸入:“asp 編程” 先得到輸入框中的內容:search=request("search") 然後將這兩個值分別取出來 s=split(search," ") '構造sql函數 sql="select * from news" for i=0 to ubound(s) m=m&" or title='"&s(i)&"'" next '在這裡會發現得到的m前面多了一個or,所以要去掉 m=right(m,len(m)-3)
程式碼: 以下為引用的內容: 複製代碼 代碼如下:'關鍵字的搜尋 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t)
可能還有很多未完善,但終歸可以使用了,以後再慢慢改進!! 以下是我RSS介面的後台代碼,給需要的朋友提供下我的經驗: 複製代碼 代碼如下:using System; using System.Data; using System.Configuration; using System.Collections; using System.Web; using System.Web.Security; using System.Web.UI;