adminbl.asp

一个不错的论坛原代码

      </td>
    </tr>
    
    
   <tr align="center"> 
    <a name=scwj></a>  <td colspan="2" <%=tColor%> class=tdc1 height=22>上传文件设置<a href="#top" title="返回顶端">[返回顶端]</a></td>
    </tr>
    
         <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>每次上传文件：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="send_upload" class=tdc size="25" value="<%=rschk("send_upload")%>">(次数) </td>
    </tr>
       <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>上传文件类型：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="h_uploadtext" class=tdc size="40" value="<%=rschk("h_uploadtext")%>">(请注意用,隔开) </td>
    </tr>
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>最大上传文件：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="uploadsize" class=tdc size="25" value="<%=rschk("uploadsize")%>"> 
        (单位为:字节)</td>
    </tr>
       <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>上传文件：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="lockupload">
       <option value=0  <% if rschk("lockupload")="0" then response.write("selected")%>>无组件</option>

       <option value=1 <% if rschk("lockupload")="1" then response.write("selected")%>>关闭上传</option>
       
 </select>
      </td>
    </tr>
       <tr align="center"> 
    <a name=whsz></a>  <td colspan="2" <%=tColor%> class=tdc1 height=22>论坛维护设置<a href="#top" title="返回顶端">[返回顶端]</a></td>
    </tr>
    
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>论坛是否关闭：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_lockcpb">
       <option value=0  <% if rschk("h_lockcpb")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rschk("h_lockcpb")="1" then%>selected <%end if%>>关闭</option>
       
 </select>
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>关闭原因：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="4" name="h_lockcpbwhy" cols="50"><%=rschk("h_lockcpbwhy")%></textarea>
      </td>
    </tr>
            <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>关闭论坛注册：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_lockreg">
       <option value=0  <% if rschk("h_lockreg")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rschk("h_lockreg")="1" then%>selected <%end if%>>关闭</option>
       
 </select>
      </td>
    </tr>
    
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>关闭论坛注册原因：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="4" name="h_lockregwhy" cols="50"><%=rschk("h_lockregwhy")%></textarea>
      </td>
    </tr>
      
    <tr align="center"> 
    <a name=yjfw></a>  <td colspan="2" <%=tColor%> class=tdc1 height=22>邮件服务设置<a href="#top" title="返回顶端">[返回顶端]</a></td>
    </tr>
     
   
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>邮件组件：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_selectemail">
       <option value=0  <% if rschk("h_selectemail")="0" then%> selected<%end if%>>关闭</option>
       <option value=1 <% if rschk("h_selectemail")="1" then%>  selected <%end if%>>CDONTS</option>
        <option value=2 <% if rschk("h_selectemail")="2" then%> selected <%end if%>>JMail</option>
  <option value=3 <% if rschk("h_selectemail")="3" then%> selected <%end if%>>aspemail</option>
 </select> (注意：如果你的空间不支持这些组件，请选择关闭，免得出错）</td>
    </tr>

    <tr>
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>SMTP Server地址：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="h_emailserver" class=tdc size="25" value="<%=rschk("h_emailserver")%>"></td>
    </tr>
    <tr>
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>站长邮箱：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="h_email" class=tdc size="25" value="<%=rschk("h_email")%>"></td>
    </tr>


    
     
    <tr align="center"> 
    <a name=hyx></a>  <td colspan="2" <%=tColor%> class=tdc1 height=22>欢迎信设置<a href="#top" title="返回顶端">[返回顶端]</a></td>
    </tr>
    
          <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>给注册用户发送欢迎信：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="radio" value="0" <% if rschk("h_weiwang")=0 then response.write"checked"%> name="h_weiwang">打开<input type="radio" name="h_weiwang" value="1" <% if rschk("h_weiwang")=1 then response.write"checked"%>>关闭</td>
    </tr>
        <tr> 
      <td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>邮箱保存多少封邮件：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="hpm" class=tdc size="25" value="<%=rschk("hpm")%>">
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>欢迎信主题：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="q_title" class=tdc size="30" value="<%=rschk("q_title")%>">
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc>欢迎信内容：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <textarea rows="4" name="q_content" cols="50"><%=rschk("q_content")%></textarea>
      </td>
    </tr>
    
    <tr align="center"> 
    <a name=qtsz></a>  <td colspan="2" <%=tColor%> class=tdc1 height=22>其它设置<a href="#top" title="返回顶端">[返回顶端]</a></td>
    </tr>
       <tr>
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>论坛样式：</td>
      <td bgcolor=<%=tColor2%> class=tdc> <select  name="s_id1">
      <%sql="select bdtj2 from stycss where s_id="&rschk("s_id")&""
      set rs=conn.execute(sql)
      if not rs.eof then
      bdtj2=rs("bdtj2")
      end if
      set rs=nothing%>
      <option  value=<%=rschk("s_id")%> ><%=bdtj2%></option>
      <%sql="select s_id,bdtj2 from stycss"
 set rs=conn.execute(sql)

 do while not rs.eof  
   %>
       <option  value=<%=rs("s_id")%> ><%=rs("bdtj2")%></option>
   <%rs.movenext
   loop
   set rs=nothing%>
       
 </select></td>
    </tr>
       
       
           <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>在线人数详细列表：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_viewonline">
       <option value=0  <% if rschk("h_viewonline")="0" then%> selected<%end if%>>不显示</option>
       <option value=1 <% if rschk("h_viewonline")="1" then%>selected <%end if%>>显示</option>
       
 </select>
      </td>
    </tr>
       <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>验证码开启：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="t_viewcheck">
       <option value=0  <% if rschk("t_viewcheck")="0" then response.write("selected")%>>开启</option>
       <option value=1 <% if rschk("t_viewcheck")="1" then response.write("selected")%>>关闭</option>
       
 </select>
      </td>
    </tr>
    
       <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>帖子显示：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="t_viewtree">
       <option value=0  <% if rschk("t_viewtree")="0" then response.write("selected")%>>平板</option>
       <option value=1 <% if rschk("t_viewtree")="1" then response.write("selected")%>>树型</option>
       
 </select>
      </td>
    </tr>
      <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>显示会员生日：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_birder">
       <option value=0  <% if rschk("h_birder")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rschk("h_birder")="1" then%>selected <%end if%>>不显示</option>
       
 </select>
      </td>
    </tr>
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>显示今日明星：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
         <select size="1" name="h_mingxing">
       <option value=0  <% if rschk("h_mingxing")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rschk("h_mingxing")="1" then%>selected <%end if%>>不显示</option>
       
 </select>
      </td>
    </tr>
          <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>联盟论坛设置：</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="radio" value="0" <% if rschk("t_link")=0 then response.write"checked"%> name="t_link">文字连接<input type="radio" name="t_link" value="1" <% if rschk("t_link")=1 then response.write"checked"%>>图片连接 <input type="radio" name="t_link" value="2" <% if rschk("t_link")=2 then response.write"checked"%>>文字与图片连接</td>
    </tr>
      </tr>
       </tr>
    
     <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>多少时间没有动作为离开</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="text" name="seconds" class=tdc size="25" value="<%=rschk("seconds")%>">(单位为:分)
      </td>
    </tr>
    <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc> 
        <input type="submit" name="Submit" value="提交" class=bdtj>
        <input type="reset" name="Submit2" value="重置" class=bdtj>
      </td>
    </tr>
  </table>
  </div>
  </form>




<%
 conn.close
set conn=nothing%>