commom.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<%@ LANGUAGE=VBScript CodePage=936%>
<%Option Explicit
Response.Buffer = True

  If application("SiteEnableFlag")="" Then application("SiteEnableFlag") = 1
  If application("SiteEnableFlag")=0 and application("SiteDisbledescription")<>"" and inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/admin/") = 0 Then
    Response.Write" 由于以下原因，本Wap影音暂时关闭：<br>"&application("SiteDisbledescription")
    Response.End
  End If

  Const	const_admin="admin|admin"
  Const	const_txlname="81238.Net"
  Const	const_txlurl="index.asp"
  Const	const_homepagename="81238.Net"
  Const	const_homepageurl="http://wap.81238.net/"
  Const	const_AccessDatabase="data/lsmir.mdb"
  Const	const_txllogourl="images/Logo.gif"
  Const	const_copyright="81238.Net"
  Const	const_adminname="81238"
  Const	const_adminemail="[e-mail]"
  Const	const_BadWordString="法轮|法轮功"
  Const	const_FaceUploadurl="images/img/"
  Const	const_photoup_path="upfile/"
  Const	const_faceuploadurl2="upface/"
  Const	const_emoturl="emot/"
  Const	const_banner="sdgasdgf"
  Const	const_PhotoFormat=".gif,.jpg,.bmp,.swf,.mp3,.wmv,.wav,.mmf,.mid,.amr,.imy,.asx,.asf,.avi"

  Const	const_welcomemessage=1
  Const	const_welcomeemail=1
  Const	const_UserOnlineTimeOut=1200
  Const	const_emailmode=2
  Const	const_uploadcomponent=1
  Const	const_EnableUploadface=1
  Const	const_MaxUploadFaceSize=1024
  Const	const_FaceHeight="30|120"
  Const	const_FaceWidth="30|120"
  Const	const_EnableSignUBBCode=1
  Const	const_PhotoMaxSize=1024
  Const	const_EnableMessageUBBCode=1
  Const	const_index_chat=0
  Const	const_ordersong_renum=20
  Const	const_ordersong_saveday=20
  Const	const_ordersong_contentnum=250
  Const	const_ordersong_songfmt="mp3|wma|rm|asf|gif|asx"


  Const	const_secret_set=1
  Const	const_friend_regset=1
  Const	const_friend_loginset=1
  Const	const_forum_login_limit=0
  Const	const_bbs_login_limit=0
  Const	const_photo_login_limit=0
  Const	const_classmateinfo_login_limit=0
  Const	const_upphoto_limit=0


%>