index_add.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 26 行

<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<%
dim rs,sql
dim homename,homeurl,adminmail,sjzs
homename=request.Form("homename")
homeurl=request.form("homeurl")
adminmail=request.form("adminmail")
sjzs=request.form("sjzs")
set rs=server.CreateObject("adodb.recordset")
sql="select * from index where id=1"
rs.open sql,conn,2,3
rs("homepage")=homename
rs("homeurl")=homeurl
rs("adminmail")=adminmail
rs("sjzs")=sjzs
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("网站信息修改成功~!")
window.location.href"index_gl.asp"
</script>