📄 upcfg.asp

📁 电子商务网络购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strMode
Dim strUploadComponent
Dim strImageTypes
Dim intMaxImageSize
Dim strImagePath
Dim strFileTypes	
Dim intMaxFileSize
Dim strFilePath
Dim blnAvatarEnabled
Dim strAvatarTypes
Dim intMaxAvatarSize
Dim strAvatarPath

strUploadComponent = Request.Form("component")
strImageTypes = Request.Form("imageTypes")
intMaxImageSize	= CInt(Request.Form("imageSize"))
strImagePath = Request.Form("imagePath")
strFileTypes = Request.Form("fileTypes")
intMaxFileSize	= CInt(Request.Form("fileSize"))
strFilePath = Request.Form("filePath")
strAvatarTypes = Request.Form("avatarTypes")
intMaxAvatarSize = CInt(Request.Form("avatarSize"))
strAvatarPath = Request.Form("avatarPath")
blnAvatarEnabled = CBool(Request.Form("avatar"))
strMode = Request.Form("mode")

strSQL = "SELECT timescfg.* From timescfg;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If strMode = "postBack" Then
	With rsConn
		.Fields("upcomponent") = strUploadComponent
		.Fields("upimgtype") = strImageTypes
		.Fields("upimgsize") = intMaxImageSize
		.Fields("upimgpath") = strImagePath
		.Fields("upfiletype") = strFileTypes
		.Fields("upfilesize") = intMaxFileSize
		.Fields("upfilepath") = strFilePath
		.Fields("upphototype") = strAvatarTypes
		.Fields("upphotosize") = intMaxAvatarSize
		.Fields("upphotopath") = strAvatarPath
		.Fields("upphoto") = blnAvatarEnabled
		.Update
		.Requery
	End With
End If

If NOT rsConn.EOF Then

	strUploadComponent = rsConn("upcomponent")
	strImageTypes = rsConn("upimgtype")
	intMaxImageSize	= CInt(rsConn("upimgsize"))
	strImagePath = rsConn("upimgpath")
	strFileTypes = rsConn("upfiletype")
	intMaxFileSize	= CInt(rsConn("upfilesize"))
	strFilePath = rsConn("upfilepath")
	strAvatarTypes = rsConn("upphototype")
	intMaxAvatarSize = CInt(rsConn("upphotosize"))
	strAvatarPath = rsConn("upphotopath")
	blnAvatarEnabled = CBool(rsConn("upphoto"))
End If

rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>上传图片和文件设置</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script  language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
	if (document.frmUpload.imageTypes.value==""){
		alert("请输入允许上传的图片类型");
		document.frmUpload.imageTypes.focus();
		return false;
	}
	if (document.frmUpload.imagePath.value==""){
		alert("请输入图片上传的路径");
		document.frmUpload.imagePath.focus();
		return false;
	}
	if (document.frmUpload.fileTypes.value==""){
		alert("请输入允许上传的文件类型");
		document.frmUpload.fileTypes.focus();
		return false;
	}
	if (document.frmUpload.filePath.value==""){
		alert("请输入文件上传的路径");
		document.frmUpload.filePath.focus();
		return false;
	}
	if (document.frmUpload.avatarTypes.value==""){
		alert("请输入允许上传的头像类型");
		document.frmUpload.avatarTypes.focus();
		return false;
	}
	if (document.frmUpload.avatarPath.value==""){
		alert("请输入头像上传的路径");
		document.frmUpload.avatarPath.focus();
		return false;
	}
	return true
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">上传图片和附件管理<br>
  </span><br />
  <a href="menu.asp" target="_self">返回到管理主菜单</a><br />
 <br />
 <table width="96%" border="0" cellspacing="1" cellpadding="4" bgcolor="#000000">
  <tr> 
      <td align="center" bgcolor="#CCCCCC" class="lgText"> 注意！</td>
  </tr>
  <tr> 
      <td bgcolor="#EFEFEF"> <p class="text">要上传文件，你的服务器必须安装了上传组件.请和你的空间提供上联系<br>
          <br>
          如果是你自己的服务器，你可以安装下面的任何一个软件，同时你必须对上传目录有些的权限<br>
        </p>
        <ul>
          <li class="text"><span class="bold">Persits AspUpload</span> 2.x or 
            above<br>
            下载地址:<a href="http://www.aspupload.com" target="_blank">www.aspupload.com</a></li>
          <li class="text"><span class="bold">Dundas Upload</span> 2.0<br>
            下载地址:<a href="http://www.dundas.com" target="_blank">www.dundas.com</a></li>
          <li class="text"><span class="bold">SoftArtisans FileUp</span> 3.2 or 
            above (<span class="bold">SA FileUp</span>)<br>
            下载地址:<a href="http://www.softartisans.com" target="_blank">www.softartisans.com</a></li>
          <li class="text"><span class="bold">aspSmartUpload</span><br>
            下载地址:<a href="http://www.aspsmart.com/" target="_blank">http://www.aspsmart.com</a></li>
          <li class="text"><span class="bold">AspSimpleUpload</span><br>
            下载地址:<a href="http://www.asphelp.com/" target="_blank">http://www.asphelp.com</a></li>
        </ul></td>
  </tr>
 </table>
</div>
<form method="post" name="frmUpload" action="upcfg.asp" onSubmit="return CheckForm();">
 <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000" height="277">
  <tr> 
   <td height="234" width="560"> <table width="100%" border="0" align="center" height="221" cellpadding="4" cellspacing="1">
     <tr align="left" bgcolor="#CCCCCC"> 
            <td height="30" colspan="2" class="text">*必填</td>
     </tr>
     <tr  bgcolor="#FFFFFF"> 
            <td width="59%"  height="12" align="left" class="text">使用的组件:<br>
              <span class="smText">请和你的空间提供商联系</span></td>
      <td height="12" width="41%" valign="top"> <select name="component">
        <option value="AspUpload"<% If strUploadComponent = "AspUpload" Then Response.Write(" selected") %>>Persits AspUpload</option>
        <option value="Dundas"<% If strUploadComponent = "Dundas" Then Response.Write(" selected") %>>Dundas Upload</option>
12 下一页
⌨️ 快捷键说明

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