addarticle.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<!--#include file="security.asp"-->
<!--#include file="inc/part_1.asp"-->
<!--#include file="inc/part_2.asp"-->
<Script Language="Javascript" Src="../inc/JS_CheckForm.asp">
</script>
<script Language="JavaScript">
<!--

function submitonce(theform){
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true}
}
}

function CheckAll()  
{  
	//检查非空
	if (!CheckEmpty(form.title, "文章标题"))	return false;   
	if (!CheckEmpty(form.content, "文章内容"))	return false;   
	//全部通过
	submitonce(form)
	return true;  
}  

function DoTitle(addTitle) { 
var revisedTitle; 
var currentTitle = document.form.title.value; 
revisedTitle = currentTitle+addTitle;
document.form.title.value=revisedTitle; 
document.form.title.focus(); 
return; }

-->
</script>
<form method="POST" action="savearticle.asp" name="form" onSubmit="return(CheckAll());">
<input type="hidden" name="html" value="off">
    <table border="0" cellspacing="0" width="95%" cellpadding="2">
      <tr> 
        <td height="18"> 
          <b><font color="#000000">发表文章</font></b> 
        </td>
    </tr>
    <tr align="center">
          
        <td width="100%"> 
          <table border="0" cellspacing="1" width="100%">
              <tr> 
                <td width="15%" align="right" height="30"><font color="#000000">文章标题：</font></td>
                <td width="85%" height="30"> 
                  <input type="text" name="title" size="40" maxlength="250" class="put">
              <SELECT name=font onchange="DoTitle(this.options[this.selectedIndex].value)" class="put">
              <OPTION selected value="">选择话题</OPTION>
              <OPTION value=[原创]>[原创]</OPTION>
              <OPTION value=[转帖]>[转帖]</OPTION>
              <OPTION value=[灌水]>[灌水]</OPTION>
              <OPTION value=[讨论]>[讨论]</OPTION>
              <OPTION value=[求助]>[求助]</OPTION>
              <OPTION value=[推荐]>[推荐]</OPTION>
              <OPTION value=[公告]>[公告]</OPTION>
              <OPTION value=[注意]>[注意]</OPTION>
              <OPTION value=[贴图]>[贴图]</OPTION>
              <OPTION value=[建议]>[建议]</OPTION>
              <OPTION value=[下载]>[下载]</OPTION>
              <OPTION value=[分享]>[分享]</OPTION>
              </SELECT>
                </td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="30"><font color="#000000">文章栏目：</font></td>
                <td width="85%" height="30"> 
                  <select name="typeid" size="1" class="put">
                    <%
dim rs,sql,sel
 set rs=server.createobject("adodb.recordset")
  sql="select * from type"
 rs.open sql,conn,1,1
			  do while not rs.eof
                                sel="selected"    
		             response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
			rs.close
			  %> 
                  </select>
                </td>
              </tr>
              <tr> 
                <td width="15%" align="right" valign="top"><font color="#000000">文章内容：<br>
                  </font></td>
                <td width="85%"> 
                  
                <textarea rows="20" name="content" cols="70" class="put"></textarea>
                </td>
              </tr>
            </table>
            
          <br>
              <p> 
                <input type="submit" value=" 添 加 " name="cmdok" class="put1">
                &nbsp;&nbsp;&nbsp;&nbsp; 
                <input type="reset" value=" 清 除 " name="cmdcancel" class="put1">
                <br>
                <br>
              </p>
          </td>
    </tr>
  </table>      
</form>
<!--#include file="inc/part_3.asp"-->