index.asp

一个AJAX的计数插件

<!-- #include file="conn.asp" -->
<style>
table{ border-collapse:collapse; }
</style>
<script>
function changbgColor(){
	var objrows = document.getElementsByTagName("tr");
	var i = 0;
	while(objrows.item(i)){
		if(i%2 == 0){
			objrows.item(i).style.backgroundColor = "#f1f1f1";
		}
		i++;
	}
}

window.onload = changbgColor;
</script>
<%
	Connect()
	Dim objRs,strSQL,add,name,del,did
	Set objRs = Server.CreateObject("Adodb.RecordSet")

	add = Request.Form("add")
	del = Request.Form("del")
	name = Request.Form("name")
	did = Request.Form("did")

	If add <> "" Then
		strSQL = "Select * From [Counts]"
		objRs.open strSQL,objConn,1,3
		objRs.AddNew()
		objRs("Description") = name
		objRs.Update()
		Response.Redirect "index.asp"
	End If
	
	If del <> "" Then
		strSQL = "Delete * From [Counts] Where [Id]=" & did
		objRs.open strSQL,objConn,1,3
		Response.Redirect "index.asp"
		objRs.Close()
	End If
	
	strSQL = "Select * From [Counts]"
	objRs.open strSQL,objConn,1,3
%>
<p>
	<form method="post" action="index.asp">
	<label>添加新标签:</label><input type="text" name="name" />&nbsp;<input type="submit" name="add" value="添加" />
	</form>
</p>
<table width="400" border="1" border="1" cellpadding="1" cellspacing="0" bordercolor="#d1d1d1">
	<tr bgcolor"red">
		<th>Id</th>
		<th colspan="2">Description</th>
	</tr>
<% While Not objRs.Eof %>
	<form method="post" action="index.asp">
	<tr>
		<td><%=objRs("Id")%></td>
		<td><%=objRs("Description")%></td>
		<td width="20"><input type="hidden" name="did" value="<%=objRs("Id")%>" /><input type="submit" name="del" value="删除" /></td>
	</tr>
	</form>
<%
	objRs.MoveNext()
	Wend
%>
</table>
<%	
	objRs.Close()
	Set objRs = Nothing
	Disconnect()
%>