📄 sysconfig.asp
字号:
<%@language=vbscript codepage=936%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE>
body { background:#d6dff7; font-size: 12px; margin-top:0px;
SCROLLBAR-FACE-COLOR: #AABFEC; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #AABFEC;
SCROLLBAR-3DLIGHT-COLOR: #AABFEC; SCROLLBAR-ARROW-COLOR: #def0fa;
SCROLLBAR-TRACK-COLOR: #def0fa;
}
TD {
FONT-SIZE: 12px
}
INPUT {
FONT-SIZE: 12px;
HEIGHT: 20px;
}
Button
{
FONT-SIZE: 9pt;
HEIGHT: 20px;
}
Select
{
FONT-SIZE: 9pt;
HEIGHT: 20px;
}
A
{
TEXT-DECORATION: none;
color: #000000;
}
A:hover
{
COLOR: #428EFF;
text-decoration: underline;
}
th
{
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-COLOR: #AABFEC; Height: 20; COLOR: white;
}
.title
{
FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-COLOR: #799AE1; Height: 20; COLOR: white;
}
.border
{
BORDER-RIGHT: #AABFEC 1px solid; BORDER-TOP: #AABFEC 1px solid; BORDER-LEFT: #AABFEC 1px solid; WIDTH: 99%; BORDER-BOTTOM: #AABFEC 1px solid; BACKGROUND-COLOR: #ffffff
}
.tdbg{
PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #DEF0FA; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}
.tdbg2{
PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #C8E7F7; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
}
</STYLE>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
bbaction=changechr(request("bbaction"))
Select case bbaction
Case "saveconfig"
call saveconfig
Case else
Dim InstalledObjects(12)
InstalledObjects(1) = "Adodb.Stream" 'Adodb.Stream
InstalledObjects(2) = "Persits.Upload" 'Aspupload3.0
InstalledObjects(3) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
InstalledObjects(4) = "DvFile.Upload" 'DvFile-Up V1.0
'-----------------------
InstalledObjects(5) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
InstalledObjects(6) = "Persits.Jpeg" 'AspJpeg
InstalledObjects(7) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
InstalledObjects(8) = "sjCatSoft.Thumbnail" 'sjCatSoft.Thumbnail V2.6
InstalledObjects(9) = "Scripting.FileSystemObject" 'fso
InstalledObjects(10) = "JMail.Message" 'JMail 4.3
InstalledObjects(11) = "CDONTS.NewMail" 'CDONTS
InstalledObjects(12) = "Persits.MailSender" 'ASPEMAIL
For i=1 to 12
Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>√</b>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<b>×</b>服务器不支持!"
Response.Write "</div>"
Next
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
s=Number(s)
if (divid=="know1")
{
s+=9;
if (s==9){s=999;}
divname=divname+s;
}
if (divid=="know2")
{
s+=1;
if (s==1000){s=999;}
divname=divname+s;
}
if (divid=="know3")
{
s+=5;
if (s==1004){s=999;}
divname=divname+s;
}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
function Getcolor(img_val,input_val){
var arr = showModalDialog("web/Dialog/selcolor.htm?action=title", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0; help:0");
if (arr != null){
document.getElementById(input_val).value = arr;
img_val.style.backgroundColor = arr;
}
}
//-->
</SCRIPT><div id="Issubport0" style="display:none"></div>
<div id="Issubport999" style="display:none"></div>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>网站参数设置</strong></td>
</tr><form method="post" action="?bbaction=saveconfig" name="AddForm">
<tr class="tdbg">
<td width="25%" height="21" align="right">网站名称：</td>
<td width="75%" height="21"> <input type="text" name="homepage_title" size="25" class="face" value="<%=homepage_title%>"></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">网站网址：
<td height="21"> <input type="text" name="homepage_link" size="25" class="face" value="<%=homepage_link%>">以"/"结尾</td>
</tr>
<tr class="tdbg">
<td height="21" align="right">网站安装路径：</td>
<td height="21"> <input type="text" name="fcml" size="25" class="face" value="<%=fcml%>">以"/"开头和结尾,如果为根目录改为"/"即可</td>
</tr>
<tr class="tdbg">
<td height="21" align="right">管理员信箱：</td>
<td height="21"> <input type="text" name="your_email" size="25" class="face" value="<%=your_email%>"></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">网站联系人：</td>
<td height="21"> <input type="text" name="your_name" size="25" class="face" value="<%=your_name%>"></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">联系电话：</td>
<td height="21"> <input type="text" name="your_tel" size="25" class="face" value="<%=your_tel%>"></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">网站关键字：</td>
<td height="21"> <input type="text" name="keywords" size="48" class="face" value="<%=keywords%>">多个请用","隔开</td>
</tr>
<tr class="tdbg">
<td height="21" align="right">数据库类型：</td>
<td height="21"> <select class="face" size="1" name="datebasetype">
<option value="0" <%if datebasetype=0 then Response.write("selected")%>>Access</option>
<option value="1" <%if datebasetype=1 then Response.write("selected")%>>Ms Sql</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">是否开启整合：</td>
<td height="21"> <select class="face" size="1" name="is_house_ot_user">
<option value="0" <%if is_house_ot_user=0 then Response.write("selected")%>>不开启</option>
<option value="1" <%if is_house_ot_user=1 then Response.write("selected")%>>开启</option>
</select> 选择开启后请配置inc/zh.asp中的相关参数</td>
</tr>
<tr class="title">
<td height="21" align="center" colspan="2">
信息设置</td>
</tr> <tr class="tdbg">
<td height="21" align="right">二手房联系方式显示：</td>
<td height="21"> <select class="face" size="1" name="showtype">
<option value="2" <%if showtype=2 then Response.write("selected")%>>本站系统</option>
<option value="1" <%if showtype=1 then Response.write("selected")%>>真实联系方式</option>
<option value="3" <%if showtype=3 then Response.write("selected")%>>登录后显示房产真实联系方式，不登录不显示</option>
</select></td>
</tr><tr class="tdbg">
<td height="21" align="right">二手房审核方式：</td>
<td height="21"> <select class="face" size="1" name="shfs">
<option value="1" <%if shfs=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="2" <%if shfs=2 then Response.write("selected")%>>游客发布需要管理员审核，会员发布无需审核</option>
<option value="3" <%if shfs=3 then Response.write("selected")%>>全部需要审核</option>
</select></td>
</tr><tr class="tdbg">
<td height="21" align="right">楼盘信息审核方式：</td>
<td height="21"> <select class="face" size="1" name="newhousesh">
<option value="1" <%if newhousesh=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="0" <%if newhousesh=0 then Response.write("selected")%>>需要审核</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">家装招标审核方式：</td>
<td height="21"> <select class="face" size="1" name="zxsh">
<option value="1" <%if zxsh=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="0" <%if zxsh=0 then Response.write("selected")%>>需要审核</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">家装招标信息联系方式显示类型：</td>
<td height="21"> <select class="face" size="1" name="zxshowtype">
<option value="2" <%if zxshowtype=2 then Response.write("selected")%>>本站系统</option>
<option value="1" <%if zxshowtype=1 then Response.write("selected")%>>真实联系方式</option>
<option value="3" <%if zxshowtype=3 then Response.write("selected")%>>登录后显示房产真实联系方式，不登录不显示</option>
</select></td>
</tr><tr class="tdbg">
<td height="21" align="right">土地信息审核方式：</td>
<td height="21"> <select class="face" size="1" name="tdsh">
<option value="1" <%if tdsh=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="0" <%if tdsh=0 then Response.write("selected")%>>需要审核</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">土地信息联系方式显示类型：</td>
<td height="21"> <select class="face" size="1" name="tdshowtype">
<option value="2" <%if tdshowtype=2 then Response.write("selected")%>>本站系统</option>
<option value="1" <%if tdshowtype=1 then Response.write("selected")%>>真实联系方式</option>
<option value="3" <%if tdshowtype=3 then Response.write("selected")%>>登录后显示房产真实联系方式，不登录不显示</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">建材商城审核方式：</td>
<td height="21"> <select class="face" size="1" name="jcscsh">
<option value="1" <%if jcscsh=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="0" <%if jcscsh=0 then Response.write("selected")%>>需要审核</option>
</select></td>
</tr><tr class="tdbg">
<td height="21" align="right">家政信息审核方式：</td>
<td height="21"> <select class="face" size="1" name="jzsh">
<option value="1" <%if jzsh=1 then Response.write("selected")%>>直接发布,无需审核</option>
<option value="0" <%if jzsh=0 then Response.write("selected")%>>需要审核</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">家政信息联系方式显示类型：</td>
<td height="21"> <select class="face" size="1" name="jzshowtype">
<option value="2" <%if jzshowtype=2 then Response.write("selected")%>>本站系统</option>
<option value="1" <%if jzshowtype=1 then Response.write("selected")%>>真实联系方式</option>
<option value="3" <%if jzshowtype=3 then Response.write("selected")%>>登录后显示房产真实联系方式，不登录不显示</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="21" align="right">家具商城审核方式：</td>
<td height="21"> <select class="face" size="1" name="jjscsh">
<option value="1" <%if jjscsh=1 then Response.write("selected")%>>直接发布,无需审核</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -