<%
Hits=CInt(1)
username=request.Form("UserName")
sql="select * from zxtg where username='"& username &"'"
OpenRS rs,sql,1,3
If rs.eof then
rs.addnew
rs("id")=intID
rs("Classid")=ClassID
rs("UserName")=username
rs("title")=request.form("title")
rs("content")=request.form("content")
rs("Hits")=Hits
IncludePic=request.Form("IncludePic")
Else
sql="update zxtg set Hits=Hits+1 where username='"&username&"'"
dbcon.execute(sql)
End If
%>