怎么简化这段代码?

[jiewin]

这是数据库连接代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim id
Dim play
Set play = Server.CreateObject("ADODB.Recordset")
id = Request.QueryString("ID")
play.ActiveConnection = MM_conn_STRING
play.Source = "SELECT * FROM song WHERE ID="+Replace(id,"'","''")+""
play.CursorType = 0
play.CursorLocation = 2
play.LockType = 3
play.Open()
play("hit")=play("hit")+1
play.update
play.Close()
Set play = Nothing
%>

[fantiny]

不需要简化

[jiewin]

那是一段点击数增加的代码,我看着很长,我知道可以改成其他方式,只是不知道代码,知道的帮一下可以吧