bigpic.vbs

使用PHP的建站系统,不需要编码,安装后直接有个页面,通过这个页面可以做后台等

dim lcountmx_bp
lcountmx_bp = 0
function dodel_bp(l)
	if MsgBox("您确定要删除吗？",1,"操作提示")=1 then
		dim Str
		execute("Str = document.editor.bp"&Cstr(l)&".value")
		If Str<>"" Then 
		document.editor.attach.value=document.editor.attach.value &","& Str
		End if
		tab_bp.deleteRow document.getElementById("tr_bp" & l).rowindex
		add_bp
	end if
end function

function add_bp()
	lcountmx_bp = lcountmx_bp+1
	dim oRow,oCell,ii
	dim sss
	set oRow=tab_bp.insertRow
	orow.id="tr_bp" & lcountmx_bp

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	sss="<input type=file name=bp"&lcountmx_bp&" style='width:340px'>"
	sss = sss & "<input type=hidden name=bp"& lcountmx_bp &" value=''>"
	ocell.innerhtml= sss
end function

function add_bpvalue(AttachUrlValue,AttachValue)
	lcountmx_bp = lcountmx_bp+1
	dim oRow,oCell,ii
	dim sss
	set oRow=tab_bp.insertRow
	orow.id="tr_bp" & lcountmx_bp

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.width="50"
	sss="<input type=hidden name=bp[] value="&AttachValue&">"&AttachUrlValue
	sss=sss & " <button onclick=vbscript:dodel_bp(" & lcountmx_bp	&") style=cursor:hand>-</button>"
	sss = sss & "<input type=hidden name=bp"& lcountmx_bp	&" value="&AttachValue&">"
	ocell.innerhtml=sss
end function