tb.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<%
if not request.QueryString("act")="post" then
dim blogArId
blogArId = replace(trim(request.QueryString("blogArId")),"'","''")
excerpt = replace(trim(request.Form("excerpt")),"'","''")
url = replace(trim(request.Form("url")),"'","''")
title = replace(trim(request.Form("title")),"'","''")
blog_name = replace(trim(request.Form("blog_name")),"'","''")
if title="" then tilte = url
if not blogArId="" then
	if not url="" then
	%>
<!--#include file="conn.asp" -->
	<%
	
	dim sql 
	sql = "insert into trackback (blogArId,excerpt,url,title,blog_name) values ("&blogArId&",'"&excerpt&"','"&url&"','"&title&"','"&blog_name&"')"
	conn.Execute(sql)
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>0</error>
</response>
<%	
	else 'url
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>1</error>
<message>Need url</message>
</response>
<%
	end if 'url
else
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>1</error>
<message>Need blogArId</message>
</response>
<%
end if 'blogArId

else ''act=post
%>
<form name="tbF" method="post" action="">
	title
		<input name="title" type="text" id="title" />
        <br />
        url
        <input name="url" type="text" id="url">
        <br />
        excerpt
        <input name="excerpt" type="text" id="excerpt" />
        <br />
        blog_name
        <input name="blog_name" type="text" id="blog_name" />
</form>
<%
end if ''act=post
%>