editor.asp

一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了


<div id="editorBox">

<div id="editTitle">Post New Article</div>

<form id="articleForm" name="articleForm" action="saveArticle.asp" method="post">

<div class="editTitle">Title</div>
<div id="articleTitle"><input type="text" name="articleTitle" id="articleTitle" class="articleTitleBox" /></div>

<div class="editTitle">Post</div>
<div id="articleCotentDIV">
<textarea name="articleContent" id="articleContent" class="textArea"></textarea> 
    <div id="editHelp">
    	<div class="subTitle">Edit Tags Available</div>
        <div id="tags">
        
        <div><span class="subTitle2">&lt;--more--&gt;</span>&nbsp; Insert more tag.</div>
        
        </div><!--End #tags-->
    </div><!--End #editHelp-->
</div><!--End #articleCotentDIV-->
<div id="articleCat" class="editTitle">Category: 

<%
Dim catRS, catSQL
catSQL = "SELECT * FROM categories"
Set catRS = Server.CreateObject("ADODB.Recordset")
catRS.open catSQL, conn, 1,1

If catRS.EOF or catRS.BOF then

Else
%>

<select name="articleCategory" id="articleCategory" class="inputBox">
	<%
	Dim counter
	counter = 1
	Do until catRS.EOF
		If counter = 1 Then
			counter = 0
	%>
	<option value="<%=catRS("cat_id")%>" selected="selected"><%=catRS("cat_name")%></option>
      <%Else%>
    <option value="<%=catRS("cat_id")%>"><%=catRS("cat_name")%></option>
    <%
		End If
	catRS.MoveNext
	Loop
	%>
</select>

<%
End If
catRS.close
Set catRS = nothing
%>
</div><!--End #articleCat-->
<div><input type="submit" name="submitArticle" id="submitArticle" value="Publish" class="button" /></div>


</form>
</div><!--End #editorBox-->