admin_date_time_configure.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

		msg += "___________________________________________________________________\n\n";
		msg += "The following field(s) need to be corrected: -\n";

		errorMsg += alert(msg + errorMsg + "\n" + errorMsgLong);
		return false;
	}

	return true;
}
</script>
<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center">
  <h1>Forum Date and Time Settings</h1><br />
    <a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
    <br />
    From here you can alter the forums global date and time format and alter the time off-set for a different time zone. <br />
    Registered members can have their own date a time settings by editing their individual Forum Profile. </p>
</div>
<form action="admin_date_time_configure.asp<% = strQsSID1 %>" method="post" name="frmDateTime" id="frmDateTime" onsubmit="return CheckForm();">
  <table border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
    <tr align="left">
      <td height="30" colspan="2" class="tableLedger">Change Server Time </td>
    </tr>
    <tr>
      <td class="tableRow">Time offset from the web servers internal clock <br />
        <span class="smText"><br />
        Use this tool if you want the time shown in the forum to be different from the web servers current time. </span><br />
        <br />
        <span class="smText">eg. If it is 1.30pm on the web server and you want the time to show as 3.30pm you would select +3 hours. </span></td>
      <td class="tableRow"><select name="serverOffSet" id="serverOffSet">
          <option value="+"<% If strForumTimeOffSet = "+" Then Response.Write(" selected") %>>+</option>
          <option value="-"<% If strForumTimeOffSet = "-" Then Response.Write(" selected") %>>-</option>
        </select>
        <select name="serverOffSetHours">
          <%

	'Create list of time off-set
	For lngLoopCounter = 0 to 24
		Response.Write(VbCrLf & "      <option value=""" & lngLoopCounter & """")
		If intForumTimeOffSet = lngLoopCounter Then Response.Write("selected") 
		Response.Write(">" & lngLoopCounter & "</option>")
	Next
        
%>
        </select>
        Hours <br />
        <br />
        <span class="smText">Present web server date and time is:-<br />
        </span>
        <% = internationalDateTime(Now()) %>
        <br />
        <br />
        <span class="smText">What your settings have changed the time and date to:-<br />
        </span>
        <% 
     	Response.Write(stdDateFormat(Now(), True) & " at " & TimeFormat(Now()))
     	
     	%></td>
    </tr>
    <tr>
      <td colspan="2" class="tableLedger">Time Format </td>
    </tr>
    <tr>
      <td class="tableRow">Date Format:<br />
        <span class="smText">For 12 hour clock set to 12; for military time (24 hour clock) set to 24</span></td>
      <td class="tableRow"><select name="timeFormat">
          <option value="12" <% If intForumTimeFormat = 12 Then Response.Write("selected") %>>12 Hour Clock</option>
          <option value="24" <% If intForumTimeFormat = 24 Then Response.Write("selected") %>>24 Hour Clock</option>
        </select>
      </td>
    </tr>
    <tr>
      <td class="tableRow">Morning Identifier for 12 hour clock times:<br />
        <span class="smText">example: am</span></td>
      <td height="13" class="tableRow"><input type="text" name="am" maxlength="5" value="<% = strMorningID %>" size="5" />
      </td>
    </tr>
    <tr>
      <td class="tableRow">Afternoon Identifier for 12 hour clock times:<br />
        <span class="smText">example: pm</span></td>
      <td height="13" class="tableRow"><input type="text" name="pm" maxlength="5" value="<% = strAfternoonID %>" size="5" />
      </td>
    </tr>
    <tr>
      <td colspan="2" class="tableLedger">Date Format </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">Date Format:</td>
      <td width="38%" class="tableRow"><select name="dateFormat">
          <option value="dd/mm/yy" <% If strForumDateFormat = "dd/mm/yy" Then Response.Write("selected") %>>Day/Month/Year</option>
          <option value="mm/dd/yy" <% If strForumDateFormat = "mm/dd/yy" Then Response.Write("selected") %>>Month/Day/Year</option>
          <option value="yy/mm/dd" <% If strForumDateFormat = "yy/mm/dd" Then Response.Write("selected") %>>Year/Month/Day</option>
          <option value="yy/dd/mm" <% If strForumDateFormat = "yy/dd/mm" Then Response.Write("selected") %>>Year/Day/Month</option>
        </select>
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">Separator:<br />
        <span class="smText">This is the separator between the date eg: 12/12/2006, 12-12-2006, etc.</span></td>
      <td width="38%" class="tableRow"><select name="seporator">
          <option value="space"<% If strDateSeporator = "&nbsp;" OR strDateSeporator = Chr(32)Then Response.Write(" selected") %>>&lt;space&gt;</option>
          <option value="/"<% If strDateSeporator = "/" Then Response.Write(" selected") %>>/</option>
          <option value="\"<% If strDateSeporator = "\" Then Response.Write(" selected") %>>\</option>
          <option value="-"<% If strDateSeporator = "-" Then Response.Write(" selected") %>>-</option>
          <option value="&nbsp;-&nbsp;"<% If strDateSeporator = "&nbsp;-&nbsp;" Then Response.Write(" selected") %>>&nbsp;-&nbsp;</option>
          <option value="."<% If strDateSeporator = "." Then Response.Write(" selected") %>>.</option>
        </select>
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">Year Format:<br />
        <span class="smText">This is whether you want the date in 4 digits (2006) or in 2 digits (06)</span></td>
      <td width="38%" class="tableRow"><select name="yearFormat">
          <option value="long" <% If strForumYearFormat = "long" Then Response.Write("selected") %>>yyyy</option>
          <option value="short" <% If strForumYearFormat = "short" Then Response.Write("selected") %>>yy</option>
        </select>
      </td>
    </tr>
    <tr>
      <td width="62%"  height="2" class="tableRow">January*:<br />
        <span class="smText">This is what you would like displayed for January eg: 01, 1, Jan, etc. </span></td>
      <td width="38%" height="2" class="tableRow"><input type="text" name="month1" maxlength="15" value="<% = saryMonth(1) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">February*:<br />
        <span class="smText">This is what you would like displayed for February eg: 02, 2, Feb, etc. </span></td>
      <td width="38%" class="tableRow"><input type="text" name="month2" maxlength="15" value="<% = saryMonth(2) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">March*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month3" maxlength="15" value="<% = saryMonth(3) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">April*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month4" maxlength="15" value="<% = saryMonth(4) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">May*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month5" maxlength="15" value="<% = saryMonth(5) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">June*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month6" maxlength="15" value="<% = saryMonth(6) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">July*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month7" maxlength="15" value="<% = saryMonth(7) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">August*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month8" maxlength="15" value="<% = saryMonth(8) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">September*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month9" maxlength="15" value="<% = saryMonth(9) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">October*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month10" maxlength="15" value="<% = saryMonth(10) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">November*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month11" maxlength="15" value="<% = saryMonth(11) %>" size="15" />
      </td>
    </tr>
    <tr>
      <td width="62%" class="tableRow">December*:</td>
      <td width="38%" class="tableRow"><input type="text" name="month12" maxlength="15" value="<% = saryMonth(12) %>" size="15" />
      </td>
    </tr>
    <tr align="center">
      <td height="2" colspan="2" class="tableBottomRow" >
          <input type="hidden" name="postBack" value="true" />
          <input type="submit" name="Submit" value="Update Date and Time Formats"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
          <input type="reset" name="Reset" value="Reset Form" />
       </td>
    </tr>
  </table>
</form>
<br />
<!-- #include file="includes/admin_footer_inc.asp" -->