www.gusucode.com > 黑鹰友情链接交换系统美化版 1.2 黑码程序 > com.asp

    <%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%
com=request("com")
if com="" then com="y"

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from link where id="&request("id")
rs.open sql,conn,1,3

		rs("com")=com
                rs("linktime")=now()
		rs.update
		rs.close
		response.redirect "tj.asp?user=y"


%>