config.asp

非常一般

<%
 Set rs = Server.CreateObject("ADODB.RecordSet") 
 Sql = "select * from Config"
 rs.Open sql,conn,1,3
  web_name = rs("web_name") 
  web_url = rs("web_url")               
  web_copy = rs("web_copy")                 
  web_fangshi = rs("web_fangshi")         
  web_ver = rs("web_ver")    
  web_refresh = rs("web_refresh")
  web_time = rs("web_time")
  web_safe = rs("web_safe")
  mail_shou = rs("mail_shou")   
  mail_fa = rs("mail_fa")
  mail_user = rs("mail_user")
  mail_pass = rs("mail_pass")
  mail_smtp = rs("mail_smtp")
  mail_cd = rs("mail_cd") 
  mail_save = rs("mail_save") 
  indextext = rs("indextext")
  webback = rs("webback")
  emailback=rs("emailback")
  listtt=rs("listtt")
  emailbk=rs("emailbk")
  emailtext=rs("emailtext")
  fkemailtitle=rs("fkemailtitle")
  emailtitle=rs("emailtitle")
  listtype=rs("listtype")

 rs.close
 Set rs=Nothing
%>
<%
  Function iif(e)
    If e = True Then
      iif = "checked"
    End if
  End Function
%>