www.gusucode.com > Follow me超级搜索引擎 > admin/addinfo1.asp

    <%Response.Charset = "GB2312"%>
<!--#include File="../Conn.asp" -->
<%
dbpath="../"
dblink
%>
<!--#include file="check.asp"-->

<%dim sql 
dim rs,other1,aa,bb,n 

gg1=LCase(request("other1"))


Set Rs=Server.Createobject("Adodb.Recordset")
sql="select * from adminuser where username like '"&Session("admin")&"' "
Rs.open Sql,Conn,1,3
Rs("gg1")=gg1
Rs.update


rs.close
Set rs = Nothing

%>
<!--#include File="htmlindex.asp" -->
<%
   response.write "<script language='javascript'>"
   response.write "alert('广告添加成功！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end 
%>