template.asp

内含全国3621个火车站,2204次列车时刻表

<%
Dim HTML_skin,HTML_path,Html_default,Html_login,Html_Format
Dim HTML_now_path
Dim Template_Html
Dim Template_default,Template_login,Template_style
Dim sys_login,sys_content,sys_left
HTML_skin="Template"
HTML_path="default"
HTML_default="default"
HTML_login="sys_login"
HTML_Format="html"
HTML_now_path=HTML_skin&"/"&HTML_path

Sub onloadHTML()
If ReportFileStatus(HTML_now_path &"/" & Html_default&"."&Html_Format)=-1 Then Errormsg "模板文件不存在！1"
If ReportFileStatus(HTML_now_path &"/" & HTML_login&"."&Html_Format)=-1 Then Errormsg "模板文件不存在2！"
If ReportFileStatus(HTML_now_path &"/" & Html_default&".css")=-1 Then Errormsg "模板文件不存在！3"
Template_default=ReadTxtFile(HTML_now_path &"/" & Html_default&"."&Html_Format)
Template_login=ReadTxtFile(HTML_now_path &"/" & HTML_login&"."&Html_Format)
Template_style=ReadTxtFile(HTML_now_path &"/" & Html_default&".css")
	Template_default=replace(Template_default,"{sys_title}",fun_tit)
	Template_default=replace(Template_default,"{sys_head}",fun_head)
	Template_default=replace(Template_default,"{sys_logo}",fun_logo)
	Template_default=replace(Template_default,"{sys_site}",fun_site)
	Template_default=replace(Template_default,"{sys_url}",fun_url)
	Template_default=replace(Template_default,"{sys_Version}",sys_Version & siteinfo(9))
	Template_default=replace(Template_default,"{sys_gov}","")
	Template_login=replace(Template_login,"{sys_login_form}",fun_form)
	Template_login=replace(Template_login,"{sys_login_endform}","</form>")
	Template_login=script("user_login","js") & vbcrlf & Template_login

	sys_login=Template_login
	If islogin Then sys_login=fun_userinfo
	Template_default=replace(Template_default,"{sys_login}",sys_login)
End Sub

Sub re(str1,str2)
Template_Html=replace(Template_Html,str1,str2)
End Sub 

Function ReadTxtFile(FileName)
    Const ForReading = 1, ForWriting = 2
    Dim f, m
    If ReportFileStatus(FileName) = 1 Then
				Dim fso
				set fso = server.CreateObject("scripting.filesystemobject")
        Set f = fso.OpenTextFile(FileName, ForReading)
        'm = f.ReadLine
        m = f.ReadAll
        'f.SkipLine
        ReadTxtFile = m
        f.Close
    Else
        ReadTxtFile = -1
    End if
End Function

function gettag(ooID) 
	dim objRegExp,reMatchCol,reMatch,reSubMatch 
	dim rValue  
	Set objRegExp=new RegExp 
	objRegExp.Pattern="{(" & ooID & "):([^}]*)" 
	objRegExp.IgnoreCase=true 
	objRegExp.Global=true 
	set reMatchCol= objRegExp.execute(oStr) '执行查询，并返回匹配到一个匹配集合中 
	if reMatchCol.count>0 then 
		Set reMatch = reMatchCol(0) '将第一匹配串放到一个匹配对象中 
		Set reSubMatch = reMatch.SubMatches '返回子匹配集合 
		if reSubMatch(0)=ooID then 
			rValue=reSubMatch(1) 
		else 
			rValue="" 
		end if 
	else 
		rValue="" 
	end if 
	getName=rValue 
end Function

Function fun_url()
fun_url = siteinfo(1)
End Function
Function fun_site()
fun_site = siteinfo(0)
End function
Function fun_tit()
fun_tit = webtit&" - "&siteinfo(0)
End function
Function fun_head()
fun_head = css(HTML_default,HTML_now_path) & vbcrlf &_
	script("admin","admin/inc")&_
	script("showpage","admin/inc")
End function
Function fun_logo()
fun_logo = "<a href='http://"&siteinfo(1)&"'>"&_
	"<img src='"&siteinfo(3)&"' alt='"&siteinfo(0)&"' border=0/></a>"
End Function
Function fun_form()
fun_form="<form name='userlogin' id='Login' action='user_chklogin.asp'"&_
	"method='post' target='_parent' onSubmit='return CheckForm();'>"
End Function

Function fun_main
fun_main="<div class=""enrollment_main""></div>"
End Function

Function fun_showpass()
fun_userinfo="<div id='CollapsiblePanel1' class='CollapsiblePanel'>"&_
	"<div class='CollapsiblePanelTab' tabindex='0'><span class='t1'>个人信息</span></div>"&_
	"<div class='CollapsiblePanelContent' style='height:166px;'>"&_
	"	<ul>"&_
	"	<li>hello,欢迎您登陆！</li>"&_
	"	<li>帐号："&user25175(2)&"</li>"&_
	"	<li>姓名："&user25175(1)&"</li>"&_
	"	<li>短信箱：0/0</li>"&_
	"	</ul>"&_
	"</div>"&_
	"</div>"
End Function

Function fun_userinfo()
fun_userinfo="<div id='showlogin'>"&_
	"<h1 class=t1>个人信息</h1>"&_
	"	<ul>"&_
	"	<li>hello,欢迎您登陆！</li>"&_
	"	<li>帐号："&user25175(2)&"</li>"&_
	"	<li>姓名："&user25175(1)&"</li>"&_
	"	<li>短信箱：0/0</li>"&_
	"	</ul>"&_
	"	<h2>-- <a href='logout.asp'>安全退出</a></h2>"&_
	"</div>"
End Function


Function fun_conmenu()
	fun_conmenu="<div class='other_menu'>"&_
	"  <h1 class='t2'>通讯录设置</h1>"&_
	"   <ul>"&_
	"	<li><A HREF='Contacts_type.asp?action=list'>通讯类别管理</A> | <A HREF='Contacts_type.asp?action=add'>添加</A></li>"&_
	"	<li><A HREF='Contacts_info.asp?action=list'>通讯录信息</A> | <A HREF='Contacts_info.asp?action=add'>添加</A></li>"&_
	"	</ul><h2>&nbsp;</h2>"&_
	"</div>"
End Function
%>