📄 adminsite.asp

📁 gdflsdf fkspofql owjlfkjsoijdf sdjfo
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
        <td height="20" align="left">&nbsp;&nbsp;图片作品大小:
          <input name="picupsize" type="text" class="wubian" id="picupsize" value="<%=picupsize%>" size="6" maxlength="40" />
          KB</td>
      </tr>
      <tr>
        <td rowspan="2" align="left">下载右框广告:
          <input name="ad3" type="text" id="ad3" value="<%=ad3%>" size="20" maxlength="400" /></td>
        <td height="20" align="left">&nbsp;&nbsp;资源下载大小:
          <input name="downupsize" type="text" class="wubian" id="downupsize" value="<%=downupsize%>" size="6" maxlength="40" />
          KB</td>
      </tr>
      <tr>
        <td height="20" align="left">&nbsp;&nbsp;下载缩图大小:
          <input name="downpicupsize" type="text" class="wubian" id="downpicupsize" value="<%=downpicupsize%>" size="6" maxlength="40" />
          KB</td>
      </tr>
      <tr>
        <td height="20" align="left"><label>文章右框广告:
            <input name="ad4" type="text" id="ad4" value="<%=ad4%>" size="20" maxlength="400" />
        </label></td>
        <td height="20" align="left"><input name="genxin" type="submit" class="wubian" value="确 定 更 新" /></td>
      </tr>
    </form>
	<%else
	  Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请手工修改<font color=Red >sub/config.asp</font>文件!"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub

'取得网站基本信息
Sitename1=replace(Trim(Request.Form("Sitename")),CHR(34),"'")
siteurl1=replace(Trim(Request.Form("siteurl")),CHR(34),"'")
webmastername1=replace(Trim(Request.Form("webmastername")),CHR(34),"'")
webMasterEmail1=replace(Trim(Request.Form("WebmasterEmail")),CHR(34),"'")
uqq1=replace(Request.Form("uqq"),CHR(34),"'")

'首面显示设计
indexgg1=replace(Trim(Request.Form("indexgg")),CHR(34),"'")
indexnews1=replace(Trim(Request.Form("indexnews")),CHR(34),"'")
indexnewspic1=replace(Trim(Request.Form("indexnewspic")),CHR(34),"'")
indexbook1=replace(Trim(Request.Form("indexbook")),CHR(34),"'")
indexdown1=replace(Trim(Request.Form("indexdown")),CHR(34),"'")
indexpic1=replace(Trim(Request.Form("indexpic")),CHR(34),"'")
indexlink1=replace(Trim(Request.Form("indexlink")),CHR(34),"'")
indexlink21=replace(Trim(Request.Form("indexlink2")),CHR(34),"'")
indexunion1=replace(Trim(Request.Form("indexunion")),CHR(34),"'")
indexunion21=replace(Trim(Request.Form("indexunion2")),CHR(34),"'")
indexwebs1=replace(Trim(Request.Form("indexwebs")),CHR(34),"'")

'接收上传设置的参数在发送给FSO执行文件修改
logoup1=replace(Trim(Request.Form("logoup")),CHR(34),"'")
worksup1=replace(Trim(Request.Form("worksup")),CHR(34),"'")
newsup1=replace(Trim(Request.Form("newsup")),CHR(34),"'")
bookup1=replace(Trim(Request.Form("bookup")),CHR(34),"'")
picup1=replace(Trim(Request.Form("picup")),CHR(34),"'")
downup1=replace(Trim(Request.Form("downup")),CHR(34),"'")
downpicup1=replace(Trim(Request.Form("downpicup")),CHR(34),"'")

'上传大小
logoupsize1=replace(Trim(Request.Form("logoupsize")),CHR(34),"'")
worksupsize1=replace(Trim(Request.Form("worksupsize")),CHR(34),"'")
newsupsize1=replace(Trim(Request.Form("newsupsize")),CHR(34),"'")
bookupsize1=replace(Trim(Request.Form("bookupsize")),CHR(34),"'")
picupsize1=replace(Trim(Request.Form("picupsize")),CHR(34),"'")
downupsize1=replace(Trim(Request.Form("downupsize")),CHR(34),"'")
downpicupsize1=replace(Trim(Request.Form("downpicupsize")),CHR(34),"'")
'广告
ad11=replace(Trim(Request.Form("ad1")),CHR(34),"'")
ad21=replace(Trim(Request.Form("ad2")),CHR(34),"'")
ad31=replace(Trim(Request.Form("ad3")),CHR(34),"'")
ad41=replace(Trim(Request.Form("ad4")),CHR(34),"'")
Dim n,TempStr
TempStr = ""
TempStr = TempStr & chr(60) & "%" & VbCrLf
TempStr = TempStr & "'■■■■■■网站基本信息设置■■■■■■■■" & VbCrLf
TempStr = TempStr & "Const SiteName="&Chr(34)&sitename1&Chr(34)&"        '网站名称" & VbCrLf
TempStr = TempStr & "Const SiteUrl="&Chr(34)&siteurl1&Chr(34)&"        '网站地址" & VbCrLf
TempStr = TempStr & "Const WebmasterName="&Chr(34)&webMasterName1&Chr(34)&"        '站长姓名" & VbCrLf
TempStr = TempStr & "Const WebmasterEmail="&Chr(34)&webmasteremail1&Chr(34)&"        '站长信箱" & VbCrLf
TempStr = TempStr & "const uqq="&Chr(34)&uqq1&Chr(34)&" '站长qq号码  " & VbCrLf
TempStr = TempStr & "'■■■■■■■■前台首页设置■■■■■■■■" & VbCrLf
TempStr = TempStr & "const indexgg="&Chr(34)&indexgg1&Chr(34)&"            '首页显示的公告的条数" & VbCrLf
TempStr = TempStr & "const indexnews="&Chr(34)&indexnews1&Chr(34)&"           '首页显示的新闻的条数" & VbCrLf
TempStr = TempStr & "const indexnewspic="&Chr(34)&indexnewspic1&Chr(34)&"        '首页显示的新闻图片的个数" & VbCrLf
TempStr = TempStr & "const indexbook="&Chr(34)&indexbook1&Chr(34)&"            '首页显示的文章的篇数" & VbCrLf
TempStr = TempStr & "const indexdown="&Chr(34)&indexdown1&Chr(34)&"            '首页显示的程序的个数" & VbCrLf
TempStr = TempStr & "const indexpic="&Chr(34)&indexpic1&Chr(34)&"              '首页显示的照片的个数" & VbCrLf
TempStr = TempStr & "const indexlink="&Chr(34)&indexlink1&Chr(34)&"         '首页显示的logo友情链接的个数" & VbCrLf
TempStr = TempStr & "const indexlink2="&Chr(34)&indexlink21&Chr(34)&"          '首面显示文字友情链接个数" & VbCrLf
TempStr = TempStr & "const indexunion="&Chr(34)&indexunion1&Chr(34)&"            '首面显示文字联盟个数" & VbCrLf
TempStr = TempStr & "const indexunion2="&Chr(34)&indexunion1&Chr(34)&"          '首面显示图片联盟个数" & VbCrLf
TempStr = TempStr & "const indexwebs="&Chr(34)&indexwebs1&Chr(34)&"             '首面显示网址导航个数" & VbCrLf
TempStr = TempStr & "'■■■■■■■■上传文件设置■■■■■■■■" & VbCrLf
TempStr = TempStr & "logoup="&Chr(34)&logoup1&Chr(34)&"     '会员logo格式" & VbCrLf
TempStr = TempStr & "worksup="&Chr(34)&worksup1&Chr(34)&"    '会员上传图片格式" & VbCrLf
TempStr = TempStr & "newsup="&Chr(34)&newsup1&Chr(34)&"     '新闻附件格式" & VbCrLf
TempStr = TempStr & "bookup="&Chr(34)&bookup1&Chr(34)&"     '文章附件格式" & VbCrLf
TempStr = TempStr & "picup="&Chr(34)&picup1&Chr(34)&"     '图片附件格式" & VbCrLf
TempStr = TempStr & "downup="&Chr(34)&downup1&Chr(34)&"     '下载附件格式" & VbCrLf
TempStr = TempStr & "downpicup="&Chr(34)&downpicup1&Chr(34)&"    '下载略图附件格式" & VbCrLf
TempStr = TempStr & "'■■■■■■■■上传文件大小设置■■■■■■■■" & VbCrLf
TempStr = TempStr & "logoupsize="&Chr(34)&logoupsize1&Chr(34)&"     '会员logo大小" & VbCrLf
TempStr = TempStr & "worksupsize="&Chr(34)&worksupsize1&Chr(34)&"  '会员上传图片作品大小" & VbCrLf
TempStr = TempStr & "newsupsize="&Chr(34)&newsupsize1&Chr(34)&"     '新闻附件大小" & VbCrLf
TempStr = TempStr & "bookupsize="&Chr(34)&bookupsize1&Chr(34)&"     '文章附件大小" & VbCrLf
TempStr = TempStr & "picupsize="&Chr(34)&picupsize1&Chr(34)&"     '图片附件大小" & VbCrLf
TempStr = TempStr & "downupsize="&Chr(34)&downupsize1&Chr(34)&"     '下载附件大小" & VbCrLf
TempStr = TempStr & "downpicupsize="&Chr(34)&downpicupsize1&Chr(34)&"    '下载略图附件大小" & VbCrLf
TempStr = TempStr & "'■■■■■■■■广告设置■■■■■■■■" & VbCrLf
TempStr = TempStr & "ad1="&Chr(34)&ad11&Chr(34)&"    '滚动文字广告" & VbCrLf
TempStr = TempStr & "ad2="&Chr(34)&ad21&Chr(34)&"    '新闻右框广告" & VbCrLf
TempStr = TempStr & "ad3="&Chr(34)&ad31&Chr(34)&"    '下载右框广告" & VbCrLf
TempStr = TempStr & "ad4="&Chr(34)&ad41&Chr(34)&"    '下载右框广告" & VbCrLf
TempStr = TempStr & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"sub/config.asp"
If GBL_CHK_TempStr = "" Then
Response.Write "<p>&nbsp;</p>网站设置成功,请<a href='adminsite.asp'>返回!</a>"
Else
Response.Write "您的主机不支持ADODB.Stream，无法完成操作，请手工修改<font color=Red >sub/config.asp</font>文件!"
End If

end if%>
</table>
	   
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</body> 
</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -