<%
sub printline (byval strline)
strline=server.htmlencode(strline)
strline=replace(strline,"<%","<%")
strline=replace(strline,"%>","%>")
strline=replace(strline,"","",1,-1,1)
strline=replace(strline,"","-->",1,-1,1)
response.write strline
end sub
function showcode(filename)
dim strfilename
dim fileobject, oinstream, stroutput
strfilename = filename
set fileobject = server.createobject("scripting.filesystemobject")
set oinstream = fileobject.opentextfile(strfilename, 1, 0, 0 )
while not oinstream.atendofstream
stroutput = oinstream.readline
call printline(stroutput)
response.write("
")wend
end function
%>
<%
on error resume next
dim file
file=request.form("filename")
response.write file & "源程式如下"
if trim(file)<> "" then
call showcode(file)
end if
%>
一段SQL指令碼
create table gc col1 char 10 drop table gc 處理引數 declare str varchar 100 select str 1,2,3,4,5 插入處理 declare s varchar 8000 select s select replace str,u...
重要的一段
2006 6 23 22 44 00 重要的一段 這幾個月都用在開發心電監護系統上了，終於告一段落，倍感輕鬆。欣慰的是，有了成果，並且成果正走在產品化路上。5月31日，孕育 設計監護儀樣機結構和pcb 6月7日，生日 pcb板制好，開始焊接和除錯 6月17日，tata，監護儀終於可以見人了。介紹一下...
String擷取一段
1.若知道要從第幾個位置開始擷取，可以直接選用substring 方法 2.若不知道要從哪邊開始擷取，但是知道string中要從哪段開始，只是要中間一段字串 如 string str age 20 address sz name mason int begin str.indexof address...
一段部署shell
一段部署shell usr bin env bash 目標伺服器ip host 1 目標伺服器埠 port 225 部署目錄 deploy dir 2 環境 env 3 備份目錄 bak dir deploy bak bak file api date y m d h m s tar.gz runt...
一段PHP異常
這是我寫的一段 裡面通過php異常功能，實現報錯時顯示出錯 所在行。當使用者操作出錯時，截圖給我，我可以很快得去追蹤和排查錯誤！public function added business submit catch exception e m commit self json 1,success s...