blogsettings.asp

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




<%
Dim configRS, configSQL, saved
Dim blogName, Tagline, blogBottom, blogURL, blogShows
saved = false

If Request.QueryString("saved") = "true" Then
	saved = true
End if

Set configRS = Server.CreateObject("ADODB.Recordset")
'On Error Resume Next
configSQL = "SELECT TOP 1 * FROM config ORDER BY blog_id DESC"
configRS.open configSQL, conn, 1,1

IF configRS.EOF or configRS.BOF then
	Response.Write("The configure information is missing.")
Else
	blogName = configRS("blog_name")
	blogURL =  configRS("blog_url")
	blogBottom = configRS("blog_bottom")
	Tagline = configRS("blog_desc")
	blogShows = configRS("blog_shows")
End If
configRS.close
Set configRS = nothing


'If Err <> "" Then
	'Response.Write("Error: " + Err.number + " - " + Err.Description)
	'Err.clear
'End if


%>

<%
If saved = true Then
	Response.Write("<div style=""color:#FF0000;background:#FDFDDB;"">Setting saved successfully.</div>")
End if
%>

<form id="blogSettingForm" name="blogSettingForm" method="post" action="saveSetting.asp?act=setting&saveSetting=save">
<table>
	<tbody>
    	<tr>
        	<td><div class="subTitle">Blog Title</div></td>
            <td><input type="text" id="blogTitle" name="blogTitle" class="inputBox2" value="<%=blogName%>" /></td>
        </tr>
        
        <tr>
        	<td><div class="subTitle">Tagline</div></td>
            <td><input type="text" id="taglineForm" name="tagline" class="inputBox2" value="<%=Tagline%>" /></td>
        </tr>
        
        <tr>
        	<td><div class="subTitle">Blog URL</div></td>
            <td><input type="text" id="blogURL" name="blogURL" class="inputBox2" value="<%=blogURL%>" /></td>
        </tr>
        
         <tr>
        	<td>
            	<div class="subTitle">Blog pages show at most</div>
            	
            </td>
            <td><input type="text" name="shows" id="shows" class="inputBox3" value="<%=blogShows%>" /> posts</td>
        </tr>
        
        <tr>
        	<td>
            	<div class="subTitle">Copyright Info</div>
                <div>HTML enabled</div>
            </td>
            <td><textarea id="copyright" name="copyright" class="smallTextArea"><%=blogBottom%></textarea></td>
        </tr>
        
    </tbody>
</table>
<input type="submit" value="Save" name="save" id="save" class="button" />
</form>