admin_upload_configure.asp

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

       <option<% If intAllocatedSpace = 60 Then Response.Write(" selected") %>>60</option>
       <option<% If intAllocatedSpace = 65 Then Response.Write(" selected") %>>65</option>
       <option<% If intAllocatedSpace = 70 Then Response.Write(" selected") %>>70</option>
       <option<% If intAllocatedSpace = 75 Then Response.Write(" selected") %>>75</option>
       <option<% If intAllocatedSpace = 80 Then Response.Write(" selected") %>>80</option>
       <option<% If intAllocatedSpace = 85 Then Response.Write(" selected") %>>85</option>
       <option<% If intAllocatedSpace = 90 Then Response.Write(" selected") %>>90</option>
       <option<% If intAllocatedSpace = 95 Then Response.Write(" selected") %>>95</option>
       <option<% If intAllocatedSpace = 100 Then Response.Write(" selected") %>>100</option>
       <option<% If intAllocatedSpace = 125 Then Response.Write(" selected") %>>125</option>
       <option<% If intAllocatedSpace = 150 Then Response.Write(" selected") %>>150</option>
       <option<% If intAllocatedSpace = 175 Then Response.Write(" selected") %>>175</option>
       <option<% If intAllocatedSpace = 200 Then Response.Write(" selected") %>>200</option>
       <option<% If intAllocatedSpace = 250 Then Response.Write(" selected") %>>250</option>
       <option<% If intAllocatedSpace = 500 Then Response.Write(" selected") %>>500</option>
      </select>
      MB</td>
    </tr>
    <tr>
      <td colspan="2" align="left" class="tableLedger">Image Upload</td>
    </tr>
    <tr>
      <td width="59%" align="left" class="tableRow">Image Types*<br />
        <span class="smText">Place the types of images that can be uploaded in posts. Separate the different image 
        types with a semi-colon.<br />
      eg. jpg;jpeg;gif;png</span></td>
      <td width="41%" valign="top" class="tableRow"><input name="imageTypes" type="text" id="imageTypes" value="<% = strImageTypes %>" size="30" maxlength="50"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
     <td  height="2" align="left" class="tableRow">Maximum Image File Size<br />
       <span class="smText">This is the maximum file size of images in Kilobytes.</span></td>
     <td height="2" valign="top" class="tableRow"><select name="imageSize" id="imageSize"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
       <option<% If intMaxImageSize = 5 Then Response.Write(" selected") %>>5</option>
       <option<% If intMaxImageSize = 10 Then Response.Write(" selected") %>>10</option>
       <option<% If intMaxImageSize = 15 Then Response.Write(" selected") %>>15</option>
       <option<% If intMaxImageSize = 20 Then Response.Write(" selected") %>>20</option>
       <option<% If intMaxImageSize = 25 Then Response.Write(" selected") %>>25</option>
       <option<% If intMaxImageSize = 30 Then Response.Write(" selected") %>>30</option>
       <option<% If intMaxImageSize = 35 Then Response.Write(" selected") %>>35</option>
       <option<% If intMaxImageSize = 40 Then Response.Write(" selected") %>>40</option>
       <option<% If intMaxImageSize = 45 Then Response.Write(" selected") %>>45</option>
       <option<% If intMaxImageSize = 50 Then Response.Write(" selected") %>>50</option>
       <option<% If intMaxImageSize = 55 Then Response.Write(" selected") %>>55</option>
       <option<% If intMaxImageSize = 60 Then Response.Write(" selected") %>>60</option>
       <option<% If intMaxImageSize = 65 Then Response.Write(" selected") %>>65</option>
       <option<% If intMaxImageSize = 70 Then Response.Write(" selected") %>>70</option>
       <option<% If intMaxImageSize = 75 Then Response.Write(" selected") %>>75</option>
       <option<% If intMaxImageSize = 80 Then Response.Write(" selected") %>>80</option>
       <option<% If intMaxImageSize = 85 Then Response.Write(" selected") %>>85</option>
       <option<% If intMaxImageSize = 90 Then Response.Write(" selected") %>>90</option>
       <option<% If intMaxImageSize = 95 Then Response.Write(" selected") %>>95</option>
       <option<% If intMaxImageSize = 100 Then Response.Write(" selected") %>>100</option>
       <option<% If intMaxImageSize = 125 Then Response.Write(" selected") %>>125</option>
       <option<% If intMaxImageSize = 150 Then Response.Write(" selected") %>>150</option>
       <option<% If intMaxImageSize = 175 Then Response.Write(" selected") %>>175</option>
       <option<% If intMaxImageSize = 200 Then Response.Write(" selected") %>>200</option>
       <option<% If intMaxImageSize = 250 Then Response.Write(" selected") %>>250</option>
       <option<% If intMaxImageSize = 500 Then Response.Write(" selected") %>>500</option>
      </select>
      KB </td>
    </tr>
    <tr>
     <td  height="2" colspan="2" align="left" class="tableRow">Select Which Groups are Permitted to Upload Images
      <table width="100%"  border="0" cellspacing="1" cellpadding="1"><%
 
'Query the database
rsCommon.MoveFirst        
	
'Loop through cats
Do While NOT rsCommon.EOF
	
	'If not guest group display group to be selected for uploading (you would be stupid to allow a security risk like uploading by guests!!)
	If rsCommon("Group_ID") <> 2 Then
		Response.Write(vbCrLf & "   <tr class=""tableRow""> " & _
		vbCrLf & "    <td width=""1%"" align=""right""><input type=""checkbox"" name=""imageGroup" & rsCommon("Group_ID") & """ id=""imageGroup" & rsCommon("Group_ID") & """ value=""true""")
		If  CBool(rsCommon("Image_uploads")) Then Response.Write(" checked")
		If blnDemoMode Then Response.Write(" disabled=""disabled""")
		Response.Write(" /></td>" & _
		vbCrLf & "    <td width=""99%"">" & rsCommon("Name") & "</td>" & _
		vbCrLf & "   </tr>")
	End If
   
	'Move to next record in rs
	rsCommon.MoveNext
Loop

 %>
       </table>     </td>
     </tr>
    <tr>
      <td  height="7" colspan="2" align="left" class="tableLedger">File Upload</td>
    </tr>
    <tr>
      <td width="59%"  height="13" align="left" class="tableRow">File Types*<br />
        <span class="smText">Place the types of files that can be upload in posts. Separate the different file types with a semi-colon.<br />
      eg. zip;rar</span></td>
      <td width="41%" height="13" valign="top" class="tableRow"><input name="fileTypes" type="text" id="fileTypes" value="<% = strFileTypes %>" size="30" maxlength="50"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
     <td  height="13" align="left" class="tableRow">Maximum File Size<br />
       <span class="smText">This is the maximum file size of files in Kilobytes.<br />
        The max size is 2000KB as many components won't allow files above this size.</span></td>
     <td height="13" valign="top" class="tableRow"><select name="fileSize" id="fileSize"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
       <option<% If intMaxFileSize = 10 Then Response.Write(" selected") %>>10</option>
       <option<% If intMaxFileSize = 20 Then Response.Write(" selected") %>>20</option>
       <option<% If intMaxFileSize = 30 Then Response.Write(" selected") %>>30</option>
       <option<% If intMaxFileSize = 40 Then Response.Write(" selected") %>>40</option>
       <option<% If intMaxFileSize = 50 Then Response.Write(" selected") %>>50</option>
       <option<% If intMaxFileSize = 60 Then Response.Write(" selected") %>>60</option>
       <option<% If intMaxFileSize = 80 Then Response.Write(" selected") %>>80</option>
       <option<% If intMaxFileSize = 100 Then Response.Write(" selected") %>>100</option>
       <option<% If intMaxFileSize = 125 Then Response.Write(" selected") %>>125</option>
       <option<% If intMaxFileSize = 150 Then Response.Write(" selected") %>>150</option>
       <option<% If intMaxFileSize = 200 Then Response.Write(" selected") %>>200</option>
       <option<% If intMaxFileSize = 250 Then Response.Write(" selected") %>>250</option>
       <option<% If intMaxFileSize = 300 Then Response.Write(" selected") %>>300</option>
       <option<% If intMaxFileSize = 400 Then Response.Write(" selected") %>>400</option>
       <option<% If intMaxFileSize = 500 Then Response.Write(" selected") %>>500</option>
       <option<% If intMaxFileSize = 750 Then Response.Write(" selected") %>>750</option>
       <option<% If intMaxFileSize = 1000 Then Response.Write(" selected") %>>1000</option>
       <option<% If intMaxFileSize = 1500 Then Response.Write(" selected") %>>1500</option>
       <option<% If intMaxFileSize = 2000 Then Response.Write(" selected") %>>2000</option>
      </select>
      KB </td>
    </tr>
    <tr>
     <td  height="13" colspan="2" align="left" class="tableRow">Select Which Groups are Permitted to Upload Files
     <table width="100%"  border="0" cellspacing="1" cellpadding="1"><%
	
'Query the database
rsCommon.MoveFirst

	
'Loop through cats
Do While NOT rsCommon.EOF
	
	'If not guest group display group to be selected for uploading (you would be stupid to allow a security risk like uploading by guests!!)
	If rsCommon("Group_ID") <> 2 Then
		Response.Write(vbCrLf & "   <tr class=""tableRow""> " & _
		vbCrLf & "    <td width=""1%"" align=""right""><input type=""checkbox"" name=""fileGroup" & rsCommon("Group_ID") & """ id=""fileGroup" & rsCommon("Group_ID") & """ value=""true""")
		If  CBool(rsCommon("File_uploads")) Then Response.Write(" checked")
		If blnDemoMode Then Response.Write(" disabled=""disabled""")
		Response.Write(" /></td>" & _
		vbCrLf & "    <td width=""99%"">" & rsCommon("Name") & "</td>" & _
		vbCrLf & "   </tr>")
	End If
   
	'Move to next record in rs
	rsCommon.MoveNext
Loop


'Reset Server Variables
rsCommon.close
 %>
       </table> 
      </td>
     </tr>
    <tr>
      <td  height="13" colspan="2" align="left" class="tableLedger">Avatar Upload</td>
    </tr>
    <tr class="tableSubLedger">
      <td  height="13" colspan="2" align="left"><span class="smText">Make sure you have also enabled Avatar Images from the <a href="admin_web_wiz_forums_configuration.asp<% = strQsSID1 %>" class="smLink">Forum Configuration</a> page.<br />
            <strong>For extra security avatars can only be uploaded once a user is registered, by editing their profile.</strong></span></td>
    </tr>
    <tr>
      <td  height="13" align="left" class="tableRow">Enable Avatar Uploading</td>
      <td height="13" valign="top" class="tableRow">On
        <input type="radio" name="avatar" value="True" <% If blnAvatarEnabled  Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
        &nbsp;&nbsp;Off
      <input type="radio" name="avatar" value="False" <% If blnAvatarEnabled = False Then Response.Write "checked" %><% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td  height="13" align="left" class="tableRow">Avatar Image Types*<br />
        <span class="smText">Place the types of images that can be uploaded in posts. Separate the different image types with a semi-colon.<br />
      eg. jpg;jpeg;gif;png</span></td>
      <td height="13" valign="top" class="tableRow"><input name="avatarTypes" type="text" id="avatarTypes" value="<% = strAvatarTypes %>" size="30" maxlength="50"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
    </tr>
    <tr>
      <td  height="13" align="left" class="tableRow">Maximum Avatar Image File Size<br />
      <span class="smText">This is the maximum file size of images in Kilobytes.</span></td>
      <td height="13" valign="top" class="tableRow"><select name="avatarSize" id="avatarSize"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %>>
          <option<% If intMaxAvatarSize = 5 Then Response.Write(" selected") %>>5</option>
          <option<% If intMaxAvatarSize = 10 Then Response.Write(" selected") %>>10</option>
          <option<% If intMaxAvatarSize = 15 Then Response.Write(" selected") %>>15</option>
          <option<% If intMaxAvatarSize = 20 Then Response.Write(" selected") %>>20</option>
          <option<% If intMaxAvatarSize = 25 Then Response.Write(" selected") %>>25</option>
          <option<% If intMaxAvatarSize = 30 Then Response.Write(" selected") %>>30</option>
          <option<% If intMaxAvatarSize = 35 Then Response.Write(" selected") %>>35</option>
          <option<% If intMaxAvatarSize = 40 Then Response.Write(" selected") %>>40</option>
          <option<% If intMaxAvatarSize = 45 Then Response.Write(" selected") %>>45</option>
          <option<% If intMaxAvatarSize = 50 Then Response.Write(" selected") %>>50</option>
          <option<% If intMaxAvatarSize = 55 Then Response.Write(" selected") %>>55</option>
          <option<% If intMaxAvatarSize = 60 Then Response.Write(" selected") %>>60</option>
          <option<% If intMaxAvatarSize = 65 Then Response.Write(" selected") %>>65</option>
          <option<% If intMaxAvatarSize = 70 Then Response.Write(" selected") %>>70</option>
          <option<% If intMaxAvatarSize = 75 Then Response.Write(" selected") %>>75</option>
          <option<% If intMaxAvatarSize = 80 Then Response.Write(" selected") %>>80</option>
          <option<% If intMaxAvatarSize = 85 Then Response.Write(" selected") %>>85</option>
          <option<% If intMaxAvatarSize = 90 Then Response.Write(" selected") %>>90</option>
          <option<% If intMaxAvatarSize = 95 Then Response.Write(" selected") %>>95</option>
          <option<% If intMaxAvatarSize = 100 Then Response.Write(" selected") %>>100</option>
          <option<% If intMaxAvatarSize = 125 Then Response.Write(" selected") %>>125</option>
          <option<% If intMaxAvatarSize = 150 Then Response.Write(" selected") %>>150</option>
          <option<% If intMaxAvatarSize = 175 Then Response.Write(" selected") %>>175</option>
          <option<% If intMaxAvatarSize = 200 Then Response.Write(" selected") %>>200</option>
          <option<% If intMaxAvatarSize = 250 Then Response.Write(" selected") %>>250</option>
          <option<% If intMaxAvatarSize = 500 Then Response.Write(" selected") %>>500</option>
        </select>
      Kb </td>
    </tr>
    <tr align="center">
      <td height="2" colspan="2" valign="top" class="tableBottomRow" >
          <input type="hidden" name="postBack" value="true" />
          <input type="submit" name="Submit" value="Update Details" />
          <input type="reset" name="Reset" value="Reset Form" />      </td>
    </tr>
  </table>
</form>
<br />
<!-- #include file="includes/admin_footer_inc.asp" --><%

Call closeDatabase()

%>