<%startime=timer()%>
code_list
題目列表
<%
set rs= server.createobject ("adodb.recordset")
sql="select * from code_search order by order_id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "nothing!"
else
total=rs.recordcount
if not isnumeric(request("page")) or isempty(request("page")) then
page=1
else
page=int(abs(request("page")))
end if
rs.pagesize=5 '每頁顯示的記錄數
mypagesize=rs.pagesize
pcount=rs.pagecount
rs.absolutepage=page
dim i
i=1do while not rs.eof and mypagesize>0
order_id=rs("order_id")
code_name=rs("code_name")
code_detail= rs("code_detail")
id = rs("id")
%>
order_id
<%=i+(page-1)*rs.pagesize%>
code_name
">" target="_blank">read it
code_detail
) value=複製**》
<%
mypagesize=mypagesize-1 '上面提到rs.pagesize=2，mypagesize=rs.pagesize
'mypagesize設定為2 這樣只能迴圈2 次 減為0時跳出迴圈
i=i+1
rs.movenext
loop
end if
%>
<%
startpagenum=1
do while startpagenum+10<=page:startpagenum=startpagenum+10:loop
endpagenum=startpagenum+9
if endpagenum>pcount then endpagenum=pcount%>
共有<%=pcount%>頁 你正在瀏覽第<%=page%>頁 跳到第 [<%if startpagenum>1 then%>" title="前十頁">7
<%end if:for go=startpagenum to endpagenum:if go<>page then%> "><%=go%>
<%else%> <%=go%>
<%end if%><%next:response.write " ":if endpagenum" title="下十頁">8
<%end if%>] 頁<%if page<>1 then%> 首頁
>尾頁
<%end if%>
add code admin_login
本模組**
<%endtime=timer()%>
本頁執行時間<%=formatnumber((endtime-startime)*1000,3)%>毫秒
<%
rs.close
set rs=nothing
conn.close
set rs=nothing
%>
－－－－－－－－－－－－－－
<%
'on error resume next
db="ad_union_db" '資料庫名稱
user_id="sa" 'user id=登陸帳號
pass_word="123456" 'password=帳號密碼
data_source="127.0.0.1,1433" 'data source=服務名稱或者ip
connstr="provider=sqloledb.1;network library=dbmssocn;password='"&pass_word&"';persist security info=true;user id='"&user_id&"';initial catalog='"&db&"';data source='"&data_source&"'"
set conn=server.createobject("adodb.connection")
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "資料庫連線出錯，請檢查連線字串。"'注釋，需要把這幾個字翻譯成英文。
response.end
end if
param1 = lcase(request.servervariables("query_string"))
filter_sql param1
param1 = lcase(request.form())
filter_sql param1
'response.write "|" & param1 &"|"
'response.end
function filter_sql(strdata)
dim strfilter
dim blnflag
dim i
dim arrayfilter
strfilter="',;,%3b,//,--,exec,declare,update,insert,select,delete,and,or,char,sysobjects,exchange" '需要過濾的字元，可以自己添，","是分隔符
blnflag=flase '過濾標誌，如果產生過濾，那麼就是真
arrayfilter=split(strfilter,",")
for i=0 to ubound(arrayfilter)
if instr(strdata,arrayfilter(i))>0 then
blnflag=true
exit for
end if
next
if blnflag then
response.write "請不要使用非法字元!"
response.end
else
filter_sql=strdata
end if
end function
%>
MPEG標準分析 概述篇 未完
新手要問mpeg是什麼？ok，mpeg是活 象專家組的縮寫詞，該專家組是聯合技術委員會 joint technical committee，jtc1 的一部分，jtc1是由iso 國際標準化組織 和iec 國際電工委員會 建立的。jtc1 負責資訊科技，在jtc1 中，下設有負責 音訊 圖象編碼以及...
ES以更新時間為標準，分離資料
首先宣告 因各種原因無法使用python安裝es模組，所以使用一種笨方法進行資料刪除 usr bin env python coding utf 8 create time 2020 4 1 file name elasticsearch del.py author mr.yang python v...
BZOJ2721 櫻花 階乘標準分解式
首先根據併聯電路電阻的關係 逃，得到y n 設y n d，解得x n 2 d d，所以只要d n 即可。於是篩出素數，n 中素因子pi的次數為 n p n p 2 n p 3 按這個方法對n 分解。最終答案即為n 的因數個數，為 2 pi 1 include include using namesp...