tempsubs.inc

pws安装 pws安装

<!--
	$Date: 10/07/97 9:59a $
	$ModTime: $
	$Revision: 18 $
	$Workfile: tempsubs.inc $
-->
<%
 Function HelpWindow(name)
	DIM strWindow
	strWindow =  "window.open'/Iisadmin/Tour/iiwzhlp.htm#" & name & "','help','height=200,width=400,scrollbars'"
	HelpWindow = strWindow
 End Function
'				*********************** ranWizard check
Sub Template_ranWizardCheck
	If myinfo.ranWizard <> "" Then
 	 If myinfo.ranWizard = 0 Then
	   ranWizard = "False"
	 ElseIf myinfo.ranWizard = "-1" Then
	   ranWizard = "True"
	 End If
	Else
	 ranWizard = "False"
 	 myinfo.ranWizard = 0
	End If
End Sub
'				******************* GENERIC CONTENTS  *************
'				*********************	MESSAGING/LINKS
' window.open("iiwzhlp.htm","IIS 向导帮助","width=400,height=300,resizable=no,scrollbars=yes")
 Sub Template_page_messaging
    response.write "<Span ID=header><FONT style='font-family:宋体;font-size:9pt'>"_
    & "选中下面复选框可包括 <A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("GuestBook") & """>来宾簿或留言簿</a><BR>"_
	& "<INPUT TYPE='checkbox' NAME='Guestbook' VALUE='-1'"
	    If myinfo.Guestbook = "-1" Then
		    response.write " CHECKED "
	    End If
    response.write " >来宾簿<BR>"_
    & "<INPUT TYPE='checkbox' NAME='Messages' VALUE='-1'"
	    If myinfo.Messages = "-1" Then
		    response.write " CHECKED "
	    End If
    response.write ">留言簿<BR></FONT></SPAN>"
 End Sub
'				************************ favorite links
  Sub Template_page_links
	response.write "<Span ID=header><FONT style='font-family:宋体;font-size:9pt'>"_
	& "<IFRAME NAME='linksFrame' WIDTH='200' HEIGHT='280' FRAMEBORDER=0 SRC='urlform.asp'>"_
	& "<FRAME NAME='linksFrame' WIDTH='200' HEIGHT='280' FRAMEBORDER=0 SRC='urlform.asp'>"_
	& "</IFRAME></FONT></SPAN>"
 End Sub
'               ************************* title / main contents

 Sub Template_title
	response.write "<SPAN ID=header><FONT style='font-family:宋体;font-size:9pt'>"
	If myinfo.title <> "" Then
	  response.write "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Title") & """>这是您主页的标题</A><BR>"_
	  & "<H1>" & myinfo.Title & "</H1><BR>"_
	  & "您可以在下面更改标题。<BR>"
	Else
		  response.write "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Title") & """>为主页输入一个标题。</A><BR>"
	End If
	response.write "<INPUT NAME=title TYPE=text  size=38 maxlength=39 Value="""_
    & myinfo.Title & """></FONT></SPAN>"
 End Sub

'					********************** main page contents
 Sub Template_Address
    response.write "<SPAN ID='title'><Font style='font-family:宋体;font-size:9pt'>"_
	& "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Department") & """>请在此处输入部门名称。</A><BR>"_
	& "<INPUT NAME='Department' TYPE='text' size=38 maxlength=39 "_
	& "VALUE="""_
	& myinfo.Department & """><BR><A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Address") & """>请在此处输入地址。</A><BR>"
	DIM number
	number = 1
	For number = 1 to 4
		response.write "<INPUT NAME = 'address" & number & "' TYPE = 'text'"_
		& " size=43 maxlength=60 VALUE=""" & MyInfo("address" & number) & """><BR>"
	Next
 End Sub

 Sub Template_Phone
	response.write "<SPAN ID='title'><Font style='font-family:宋体;font-size:9pt'>"_
		& "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Phone") & """>电话号码</A><BR>"_
		& "<INPUT NAME = 'Phone' TYPE = 'text' size=20 maxlength=30 "_
		& "VALUE="""_
		& myinfo.Phone & """><BR></Font></Span>"
 End Sub

 Sub Template_Email
	response.write "<SPAN ID=header><FONT style='font-family:宋体;font-size:9pt'>"_
	& "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Email") & """>电子邮件</A></Font></Span><BR>"_
	& "<INPUT NAME = 'Email' TYPE = 'text'"_
	& " size=38 maxlength=60 VALUE="""_
	& myinfo.Email
	response.write """><BR>"
 End Sub

 Sub Template_Name
	response.write "<SPAN ID=header><FONT style='font-family:宋体;font-size:9pt'>"_
	& "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Name") & """>名称<A></Font></Span><BR>"_
	& "<INPUT NAME = 'Name' TYPE = 'text' size=38 maxlength=50 VALUE=""" & myinfo.Name & """>"
 End Sub

 Sub Template_faxPhone
	response.write "<FONT style='font-family:宋体;font-size:9pt'>"_
	& "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Fax") & """>传真号码：</A></FONT><BR>"_
	& "<IMG SRC='space.gif' Width='20' Height='1'>"_
	& "<INPUT TYPE=text NAME='faxPhone' size=20 maxlength=30 VALUE="""_
	& myinfo.faxPhone &""">"
 End Sub

'					***********************	Page Words
 Function Template_Heading()
	Dim strHeading, number
	strHeading = ""
	number = 1
	For number = 1 to 4
		If number = 1 Then
			strHeading = strHeading & "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Heading") & """>为下段输入标题。</A>"
		Else
			strHeading = strHeading & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Heading") & """>在此处输入副标题。</A>"
		End If	
		strHeading = strHeading & "</FONT><BR><INPUT NAME = 'Heading" & number & "' TYPE = 'TEXT' size=43 maxlength=43 VALUE=""" & myinfo("Heading" & number)
		strHeading = strHeading & """ style='color:black; font-family:宋体;font-size:9pt;font-weight:bold'>&#10;&#13;"
		strHeading = strHeading & "<BR><FONT style='font-family:宋体;font-size:9pt'>"
		If number = 1 Then
			strHeading = strHeading & "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Paragraph") & """>请输入一段文字，介绍一下您自己、您的爱好或工作。</A>"
		Else
			strHeading = strHeading & "<A Language='VBSCRIPT' HREF = " & """#""" & " onClick = """ & HelpWindow("Paragraph") & """>请在此处输入附加信息。</A>"
		End If
		strHeading = strHeading & "</FONT><BR><TEXTAREA NAME ='Words" & number & "' WRAP=PHYSICAL ROWS=4 COLS=44 style='font-family:宋体;font-size:9pt'>"& myinfo("Words" & number) & "</TEXTAREA><BR>"
	Next
	Template_Heading = strHeading
 End Function

'				*************************			form data submission
 Sub Template_Theme_onClick
	document.HPWiz.Submit
	document.Template.Submit
 End Sub

 Sub Template_addLink
	document.urlUpdate.Submit
 End Sub

  Sub urlArray
	response.write "<TR><TD><SPAN ID=header><Font style='font-family:宋体;font-size:9pt'>"_				   
	& "<SELECT NAME='urlEdit' MULTIPLE SIZE = 5>"
	Dim urlList(), urlWordsList()
	intID = 0
	For i = 0 to myinfo.intUrl
		If myinfo("urlWords" & i) = "null" or myinfo("url" & i) = "http://" or myinfo("url" & i) = ""  THEN
			myinfo("url" & i) = "null"
			myinfo("urlWords" & i) = "null"
		Else
			Redim Preserve urlList(intID), urlWordsList(intID)
			urlList(intID) = Myinfo("url" & i)
				urlWordsList(intID) = Myinfo("urlWords" & i)
			response.write "<OPTION NAME='remove' VALUE=""" & i & """>" & " " & urlWordsList(intID)
			intID = intID + 1
		END IF
	Next
	If intID <> "" Then
		response.write "</SELECT></FONT></TD></TR><TR><TD Valign=top align=left>" &_
		"<INPUT type=submit NAME='removeLink' VALUE='删除链接'>"_
		& "</Font></Span></TD></TR>"
	End If
 End Sub

 Sub addLink
		If myinfo.inturl <> "" Then
			i = 1 + myinfo.intUrl
			myinfo("url" & i) = Request.Form("url")
			If request.Form("urlWords") <> "" Then
				myinfo("urlWords" & i) = request.Form("urlWords")
			Else
				myinfo("urlWords" & i) = request.Form("url")
			End If
			myinfo.intUrl = i
		Else
			myinfo.url1 = request.Form("url")
			If request.Form("urlWords") <> "" Then
				myinfo.urlWords1 = request.Form("urlWords")
			Else
				myinfo.urlWords1 = request.Form("url")
			End If
			myinfo.inturl = 1
		End If
 End Sub


 Sub removeLink
	i = Request.Form("urlEdit")						'link to remove
	myinfo("url" & i) = "null"
	myinfo("urlWords" & i) = "null"
 End Sub
%>