config.asp

来自「投票系统.rar 投票系统完整源码」· ASP 代码 · 共 14 行

<!--#include file="conn.asp"-->
<%
Dim cfrs,User,WebName,WebUrl,SystemUrl,RestrictIP
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")
cfrs.close
Set cfrs=Nothing
%>