code.asp

最流行的HTTP服务器软件之一。快速、可靠、可通过简单的API扩展

<%
dim show_topmenu,show_footmenu,show_copyright,show_userlogin,show_name,show_tel,show_fax,show_qq,show_email,show_address
dim show_topnews,show_picnews,show_pclass,show_topjob,show_topdown,show_toppic,show_about,show_contact,show_news
dim show_pic,show_job,show_down,show_other,show_order,show_book,show_psort
sub webcode()

if instr(show,"$show_topmenu$")>0 then
   showtopmenu()
   show=replace(show,"$show_topmenu$",show_topmenu)

end if

if instr(show,"$show_footmenu$")>0 then
   showfootmenu()
   show=replace(show,"$show_footmenu$",show_footmenu)
end if

if instr(show,"$show_copyright$")>0 then
   showcopyright()
   show=replace(show,"$show_copyright$",show_copyright)
end if

if instr(show,"$show_userlogin$")>0 then
   showuserlogin()
   show=replace(show,"$show_userlogin$",show_userlogin)
end if

if instr(show,"$show_productclass$")>0 then
   showproductclass()
   show=replace(show,"$show_productclass$",show_productclass)
end if

if instr(show,"$show_name$")>0 then
   showname()
   show=replace(show,"$show_name$",show_name)
end if

if instr(show,"$show_tel$")>0 then
   showtel()
   show=replace(show,"$show_tel$",show_tel)
end if

if instr(show,"$show_fax$")>0 then
   showfax()
   show=replace(show,"$show_fax$",show_fax)
end if

if instr(show,"$show_qq$")>0 then
   showqq()
   show=replace(show,"$show_qq$",show_qq)
end if

if instr(show,"$show_email$")>0 then
   showemail()
   show=replace(show,"$show_email$",show_email)
end if

if instr(show,"$show_address$")>0 then
   showaddress()
   show=replace(show,"$show_address$",show_address)
end if

if instr(show,"$show_pclass$")>0 then
   showpclass()
   show=replace(show,"$show_pclass$",show_pclass)
end if

if instr(show,"$show_psort$")>0 then
   showpsort()
   show=replace(show,"$show_psort$",show_psort)
end if

if instr(show,"$show_about$")>0 then
   showabout()
   show=replace(show,"$show_about$",show_about)
end if

if instr(show,"$show_contact$")>0 then
   showcontact()
   show=replace(show,"$show_contact$",show_contact)
end if

if instr(show,"$show_news$")>0 then
   shownews()
   show=replace(show,"$show_news$",show_news)
end if

if instr(show,"$show_job$")>0 then
   showjob()
   show=replace(show,"$show_job$",show_job)
end if

if instr(show,"$show_down$")>0 then
   showdown()
   show=replace(show,"$show_down$",show_down)
end if

if instr(show,"$show_other$")>0 then
   showother()
   show=replace(show,"$show_other$",show_other)
end if

if instr(show,"$show_order$")>0 then
   showorder()
   show=replace(show,"$show_order$",show_order)
end if

if instr(show,"$show_book$")>0 then
   showbook()
   show=replace(show,"$show_book$",show_book)
end if

call runsub("$show_userlogin")
call runsub("$show_topnews")
call runsub("$show_picnews")
call runsub("$show_topjob")
call runsub("$show_topdown")
call runsub("$show_toppic")
call runsub("$show_pic")
end sub

sub runsub(label)
	dim tmp1,tmp2,i
	dim tmpstr,para
	tmp2=1
	while instr(tmp2,show,label)>0
		tmp1=instr(tmp2,show,label)
		tmp2=instr(tmp1+1,show,"$")
		tmpstr=mid(show,tmp1,tmp2-tmp1)
		tmpstr=replace(tmpstr,"(","")
		tmpstr=replace(tmpstr,")","")
		tmpstr=trim(replace(tmpstr,label,""))
		para=split(tmpstr,",")
		
		select case label
		case "$show_userlogin"
			call showuserlogin(para(0))
			show=replace(show,label&"("&tmpstr&")$",show_userlogin)
        
		case "$show_topnews"
			call showtopnews(para(0),para(1))
			show=replace(show,label&"("&tmpstr&")$",show_topnews)
		
		case "$show_picnews"
			call showpicnews(para(0),para(1),para(2),para(3))
			show=replace(show,label&"("&tmpstr&")$",show_picnews)
		
		case "$show_topjob"
			call showtopjob(para(0),para(1))
			show=replace(show,label&"("&tmpstr&")$",show_topjob)
		
		case "$show_topdown"
			call showtopdown(para(0),para(1))
			show=replace(show,label&"("&tmpstr&")$",show_topdown)
		
		case "$show_toppic"
			call showtoppic(para(0),para(1),para(2),para(3))
			show=replace(show,label&"("&tmpstr&")$",show_toppic)
		
		case "$show_pic"
			call showpic(para(0),para(1),para(2),para(3))
			show=replace(show,label&"("&tmpstr&")$",show_pic)
		
       end select
	wend
end sub
%>