efile.vbs

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

dim lcountmx_efile

lcountmx_efile = 0

function dodel_efile(l)

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

	end if

end function

function add_efile()

	lcountmx_efile = lcountmx_efile+1
	dim oRow,oCell,ii
	dim sss
	set oRow=tab_efile.insertRow
	orow.id="tr_efile" & lcountmx_efile
	if lcountmx_efile mod(2)=0 then
		orow.classname="listrow1"
	else
		orow.classname="listrow1_1"
	end if

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.width="40"
	sss = "<nobr>附件"&lcountmx_efile&"：</nobr>"
	ocell.innerhtml= sss

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.width="450"
	sss="<input type=file name=Efile"&lcountmx_efile&" style='width:340px'>"
	sss = sss & "<input type=hidden name=EfileN"&lcountmx_efile&" value="&AttachValue&">"
	ocell.innerhtml= sss

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.innerhtml="<button onclick=vbscript:dodel_efile(" & lcountmx_efile &") style=cursor:hand>-</button>"

end function

function add_efilevalue(AttachUrlValue,AttachValue)

	lcountmx_efile = lcountmx_efile+1
	dim oRow,oCell,ii
	dim sss

	set oRow=tab_efile.insertRow
	orow.id="tr_efile" & lcountmx_efile

	if lcountmx_efile mod(2)=0 then
		orow.classname="listrow1"
	else
		orow.classname="listrow1_1"
	end if

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.width="40"
	sss = "<nobr>附件"&lcountmx_efile&"：</nobr>"
	ocell.innerhtml= sss

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.width="450"
	sss="<div align=left><input type=hidden name=Efile[] value="&AttachValue&">"&AttachUrlValue&"</div>"
	sss = sss & "<input type=hidden name=EfileN"&lcountmx_efile&" value="&AttachValue&">"
	ocell.innerhtml= sss

	set ocell=orow.insertcell
	ocell.classname="ListCellRow"
	ocell.innerhtml="<button onclick=vbscript:dodel_efile(" & lcountmx_efile &") style=cursor:hand>-</button>"

end function