config.asp

来自「Build 1025更新： 美化了后台,简化了后台操作」· ASP 代码 · 共 16 行

<!--#include file="conn.asp"-->
<%
Dim cfrs,User,WebName,WebUrl,SystemUrl,RestrictIP,AllowView,refuseTime
Set cfrs=Server.CreateObject("ADODB.RecordSet")
cfrs.open "Select * from XH_Config",conn,1,1
User=cfrs("username")
WebName=cfrs("webname")
WebUrl=cfrs("weburl")
SystemUrl=cfrs("systemurl")
RestrictIP=cfrs("restrictip")
AllowView=cfrs("AllowView")
refuseTime=cfrs("refuseTime")
cfrs.close
Set cfrs=Nothing
%>