server.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#include file="../co.asp"-->
<%
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from "&WebSqlType&"_book"
rs.open sql,conn,1,3
rs.addnew
rs(""&WebSqlType&"_userid")=request("id")
rs(""&WebSqlType&"_user")=request.Cookies("userid")
rs(""&WebSqlType&"_title")=trim(request("title"))
rs(""&WebSqlType&"_book")=trim(request("book"))
rs(""&WebSqlType&"_username")=request.Cookies("username")
rs(""&WebSqlType&"_key")=trim(request("key"))
if trim(request("htc"))<>"" then
rs(""&WebSqlType&"_htc")=trim(request("htc"))
end if
rs.update
rs.close
set rs=nothing
'if trim(request("key"))=3 then
'conn.execute("update "&WebSqlType&"_photo set "&WebSqlType&"_nhtc="&WebSqlType&"_nhtc+1 where "&WebSqlType&"_id="&trim(request("htc")))
'end if
response.Redirect(request("url"))
response.End()
%>