smallpic.vbs

来自「使用PHP的建站系统,不需要编码,安装后直接有个页面,通过这个页面可以做后台等」· VBS 代码 · 共 45 行

dim lcountmx_sp
lcountmx_sp = 0

function dodel_sp(l)
	if MsgBox("您确定要删除吗？",1,"操作提示")=1 then
		dim Str
		execute("Str = document.editor.sp"&Cstr(l)&".value")
		If Str<>"" Then 
		document.editor.attach.value=document.editor.attach.value &","& Str
		End if
		tab_sp.deleteRow document.getElementById("tr_sp" & l).rowindex
		add_sp
	end if
end function

function add_sp()
	lcountmx_sp = lcountmx_sp+1
	dim oRow,oCell,ii
	dim sss
	set oRow=tab_sp.insertRow
	orow.id="tr_sp" & lcountmx_sp

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

function add_spvalue(AttachUrlValue,AttachValue)
	lcountmx_sp = lcountmx_sp+1
	dim oRow,oCell,ii
	dim sss
	set oRow=tab_sp.insertRow
	orow.id="tr_sp" & lcountmx_sp

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