jk_template.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 37 行

<%
sub joekoe_template_common()
  dim file_name,temp1,dnum
  file_name="include/common.asp"
  dnum=ubound(web_dim)
  temp1=vbcrlf&"<"&"%"&vbcrlf&"dim web_dim("&dnum&")"
  for i=0 to dnum
    temp1=temp1&vbcrlf&"web_dim("&i&")="""&web_dim(i)&""""
  next
  temp1=temp1&vbcrlf&"%"&">"
  call create_file(file_name,file_trim_vbcrlf(temp1))
end sub

sub joekoe_template_common_other()
  dim file_name,temp1,dnum
  file_name="include/common_other.asp"
  temp1=vbcrlf&"<"&"%"&vbcrlf&"dim admin_valcode,scroll_head,openview,web_sm_server,web_sm_user,web_sm_pass" & _
	vbcrlf&"dim web_down,web_user_grade,web_forum_type,web_frm_word,web_n_boy,web_n_girl,web_ucolor" & _
	vbcrlf&"admin_valcode="""&admin_valcode&"""" & _
	vbcrlf&"scroll_head="""&scroll_head&"""" & _
	vbcrlf&"web_down="""&web_down&"""" & _
	vbcrlf&"openview="""&openview&"""" & _
	vbcrlf&"web_user_grade="""&web_user_grade&"""" & _
	vbcrlf&"web_forum_type="""&web_forum_type&"""" & _
	vbcrlf&"web_frm_word="""&web_frm_word&"""" & _
	vbcrlf&"web_n_boy="""&web_n_boy&"""" & _
	vbcrlf&"web_n_girl="""&web_n_girl&"""" & _
	vbcrlf&"web_ucolor="""&web_ucolor&"""" & _
	vbcrlf&"web_sm_server="""&web_sm_server&"""" & _
	vbcrlf&"web_sm_user="""&web_sm_user&"""" & _
	vbcrlf&"web_sm_pass="""&web_sm_pass&"""" & _ 
	vbcrlf&"%"&">"
  call create_file(file_name,file_trim_vbcrlf(temp1))
end sub

%>