modify_post.asp

有没有用DELPHI做的网上评分系统啊 我急需

<!--#include file="conn.asp"-->
<!--#include file="math.asp"-->
<%if Request.Cookies("loginadmin") = "True" then%>
<%
id=request("id")
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
	 sql="select * from ceocio where id="&id
	 rs.open sql,conn,3,3
	 rs("sitename")=Server.Htmlencode(Request("sitename"))
rs("name")=Server.Htmlencode(Request("name"))
rs("from")=Server.Htmlencode(Request("from"))
rs("num")=Server.Htmlencode(Request("num"))
rs("url")=Server.Htmlencode(Request("url"))
rs("t1")=Server.Htmlencode(Request("t1"))
rs("t2")=Server.Htmlencode(Request("t2"))
rs("t3")=Server.Htmlencode(Request("t3"))
rs("t4")=Server.Htmlencode(Request("t4"))
rs("t5")=Server.Htmlencode(Request("t5"))
rs("t6")=Server.Htmlencode(Request("t6"))
rs("t7")=Server.Htmlencode(Request("t7"))
rs("t8")=Server.Htmlencode(Request("t8"))
rs("t9")=Server.Htmlencode(Request("t9"))
rs("t10")=Server.Htmlencode(Request("t10"))
rs("m1")=Server.Htmlencode(Request("m1"))
rs("m2")=Server.Htmlencode(Request("m2"))
rs("m3")=Server.Htmlencode(Request("m3"))
rs("m4")=Server.Htmlencode(Request("m4"))
rs("m5")=Server.Htmlencode(Request("m5"))
rs("m6")=Server.Htmlencode(Request("m6"))
rs("m7")=Server.Htmlencode(Request("m7"))
rs("m8")=Server.Htmlencode(Request("m8"))
rs("m9")=Server.Htmlencode(Request("m9"))
rs("m10")=Server.Htmlencode(Request("m10"))
rs("c1")=Server.Htmlencode(Request("c1"))
rs("c2")=Server.Htmlencode(Request("c2"))
rs("c3")=Server.Htmlencode(Request("c3"))
rs("c4")=Server.Htmlencode(Request("c4"))
rs("c5")=Server.Htmlencode(Request("c5"))
rs("c6")=Server.Htmlencode(Request("c6"))
rs("c7")=Server.Htmlencode(Request("c7"))
rs("c8")=Server.Htmlencode(Request("c8"))
rs("c9")=Server.Htmlencode(Request("c9"))
rs("c10")=Server.Htmlencode(Request("c10"))
rs("z1")=Server.Htmlencode(Request("z1"))
rs("z2")=Server.Htmlencode(Request("z2"))
rs("z3")=Server.Htmlencode(Request("z3"))
rs("z4")=Server.Htmlencode(Request("z4"))
rs("z5")=Server.Htmlencode(Request("z5"))
rs("z6")=Server.Htmlencode(Request("z6"))
rs("z7")=Server.Htmlencode(Request("z7"))
rs("z8")=Server.Htmlencode(Request("z8"))
rs("z9")=Server.Htmlencode(Request("z9"))
rs("z10")=Server.Htmlencode(Request("z10"))
rs("t")=t
rs("m")=m
rs("c")=c
rs("z")=z
rs("total")=total
	 rs.update
	 rs.close
	 set rs=nothing
	 Response.Redirect"edit.asp?post=已经成功更新记录"
	 %>
<%else%>
<%Response.Redirect"edit.asp?post=更新记录失败"
%>
<%
end if
%>