<%@CODEPAGE="936"%>
<%
dim prid
prid=cint(request("prid"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from imgbook where ID="&prid&""
rs.open sql,conn,3,3,1
rs(6)=rs(6)+1
rs.update
p_name=rs(1)
p_shouming=rs(3)
p_gongneng=rs(4)
p_content=rs(5)
rs.close
set rs=nothing
%>
http://www.jegaden.com
