⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sysparameter.asp

📁 asp源码 图片ASP整站
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        是<font color=red>&nbsp;</font></td>
      
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">评论是否审核后显示</div></td>
      <td height="21"> <input name="ReviewShow" type="checkbox" value="1" <%if RsConfig("ReviewShow")=1 then response.Write("checked")%>></td>
    <tr valign="middle" bgcolor="#f2f2f2"> 
      <td height="21" colspan="2"><strong>生成参数</strong></td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">新闻生成文件名样式</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="NewsFileName1" type="checkbox" id="NewsFileName" value="Y" <%if InStr(1, RsConfig("NewsFileName"),"Y" ,1)<>0 then response.Write("checked") %>>
        年 
        <input name="NewsFileName2" type="checkbox" id="NewsFileName" value="M" <%if InStr(1, RsConfig("NewsFileName"),"M" ,1)<>0 then response.Write("checked") %>>
        月 
        <input name="NewsFileName3" type="checkbox" id="NewsFileName" value="D" <%if InStr(1, RsConfig("NewsFileName"),"D" ,1)<>0 then response.Write("checked") %>>
        日 
        <input name="NewsFileName4" type="checkbox" id="NewsFileName" value="H"  <%if InStr(1, RsConfig("NewsFileName"),"H" ,1)<>0 then response.Write("checked") %>>
        时 
        <input name="NewsFileName5" type="checkbox" id="NewsFileName" value="I"  <%if InStr(1, RsConfig("NewsFileName"),"I" ,1)<>0 then response.Write("checked") %>>
        分 
        <input name="NewsFileName6" type="checkbox" id="NewsFileName" value="S"  <%if InStr(1, RsConfig("NewsFileName"),"S" ,1)<>0 then response.Write("checked") %>>
        秒 
        <input name="NewsFileName7" type="checkbox" id="NewsFileName" value="A"  <%if InStr(1, RsConfig("NewsFileName"),"A" ,1)<>0 then response.Write("checked") %>>
        ClassID 
        <input name="NewsFileName8" type="checkbox" id="NewsFileName" value="N"  <%if InStr(1, RsConfig("NewsFileName"),"N" ,1)<>0 then response.Write("checked") %>>
        Newsid <br> <input name="NewsFileName9" type="checkbox" id="NewsFileName" value="Z"  <%if InStr(1, RsConfig("NewsFileName"),"Z" ,1)<>0 then response.Write("checked") %>>
        2位随机数 
        <input name="NewsFileName10" type="checkbox" id="NewsFileName" value="X" <%if InStr(1, RsConfig("NewsFileName"),"X" ,1)<>0 then response.Write("checked") %>>
        3位随机数 
        <input name="NewsFileName11" type="checkbox" id="NewsFileName" value="C" <%if InStr(1, RsConfig("NewsFileName"),"C" ,1)<>0 then response.Write("checked") %>>
        4位随机数 
        <input name="NewsFileName12" type="checkbox" id="NewsFileName" value="V"  <%if InStr(1, RsConfig("NewsFileName"),"V" ,1)<>0 then response.Write("checked") %>>
        5位随机数 
        <input name="NewsFileName13" type="checkbox" id="NewsFileName" value="U" <%if InStr(1, RsConfig("NewsFileName"),"U" ,1)<>0 then response.Write("checked") %>>
        分割&quot;_&quot; <br> <font color="#FF0000">采用任意组合,注意：如果你没有选择newsid,您必须选择至少3个（包含3个）以上的组合,随机数只能选择一个。否则默认识别“3位随机数”</font></td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">使用日期目录(年-月/日/文件名)</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="UseDatePath" type="radio" value="0" <%if RsConfig("UseDatePath")=0 then response.Write("checked") %>>
        不使用 
        <input type="radio" name="UseDatePath" value="1"  <%if RsConfig("UseDatePath")=1 then response.Write("checked") %>>
        使用 </td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">自动生成分类</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="AutoClass" type="checkbox" id="AutoClass" value="1"  <%if RsConfig("AutoClass")=1 then response.Write("checked") %>></td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">自动生成首页</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="Autoindex" type="checkbox" id="Autoindex" value="1"  <%if RsConfig("Autoindex")=1 then response.Write("checked") %> >
        　　生成首页的扩展名： 
        <select name="IndexExtName" id="IndexExtName">
          <option value="htm" <%if RsConfig("IndexExtName")="htm" then response.Write("selected")%>>htm</option>
          <option value="html" <%if RsConfig("IndexExtName")="html" then response.Write("selected")%>>html</option>
          <option value="shtml" <%if RsConfig("IndexExtName")="shtml" then response.Write("selected")%>>shtml</option>
          <option value="shtm" <%if RsConfig("IndexExtName")="shtm" then response.Write("selected")%>>shtm</option>
          <option value="asp" <%if RsConfig("IndexExtName")="asp" then response.Write("selected")%>>asp</option>
        </select> <input name="oldIndexExtName" type="hidden" id="oldIndexExtName" value="<%=RsConfig("IndexExtName")%>"> 
      </td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">生成方式</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="MakeType" type="radio" value="0" <%if RsConfig("MakeType")=0 then response.Write("checked") %>>
        Fso(File System Object) 
        <input type="radio" name="MakeType" value="1"  <%if RsConfig("MakeType")=1 then response.Write("checked") %>>
        Adodb.Stream</td>
    <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21">　 
        <div align="right">版权信息<br>
          <font color="#FF0000"> 可以使用html语法</font> </div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <textarea name="Copyright" cols="60" rows="6" id="Copyright"><%=RsConfig("Copyright")%></textarea> 
      </td>
	 </tr>
	 <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21">　 
        <div align="right">要过滤的脏字<br>
          <font color="#FF0000">要设置多个请每行设置一个！</font> </div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <textarea name="BadChar" cols="60" rows="6" id="Copyright"><%=RsConfig("BadChar")%></textarea> 
      </td>
	 </tr>
	 <tr valign="middle" bgcolor="#F5F5F5"> 
      <td height="21"> <div align="right">将脏字替换为</div></td>
      <td width="613" height="21" bgcolor="#F5F5F5"> <input name="GoodChar" type="text" id="GoodChar"  value="<%=RsConfig("GoodChar")%>" size=30></td>
    </tr>
      <iframe width="260" height="165" id="colourPalette" src="selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
  </table>
</form>
</body>
</html>
<%
RsConfig.close
set RsConfig =nothing
set conn=nothing
set DBC=nothing
Dim ComponentName(3),i
ComponentName(0) = "Persits.Jpeg"
ComponentName(1) = "wsImage.Resize"
ComponentName(2) = "SoftArtisans.ImageGen"
ComponentName(3) = "CreatePreviewImage.cGvbox"
%>
<script language="javascript">
var ComponentNameArray = new Array();
var ComponentInfoArray = new Array();
<%
	Dim ExpiredStr
	For i = 0 to UBound(ComponentName)
%>
ComponentNameArray[ComponentNameArray.length] = "<%= ComponentName(i)%>";
<%
		If IsObjInstalled(ComponentName(i)) Then
			If IsExpired(ComponentName(i)) Then
				ExpiredStr = "，但已<font color=red>过期</font>"
			else
				ExpiredStr = ""
			End if
%>
ComponentInfoArray[ComponentInfoArray.length] = "<font color='0076AE'> √</font>支持<%=ExpiredStr%>";
<%
		Else
%>
ComponentInfoArray[ComponentInfoArray.length] = "<font color='red'>×</font>不支持"
<%
		End if
	Next
%>
function ShowInfo(ComponentID)
{
	if(ComponentID == 0)
	{
		document.all.ComponentInfo.innerHTML = "";
		document.all.WaterMarkSetting.style.display = "none";
		document.all.colourPalette.style.visibility="hidden";
	}
	else
	{
		document.all.ComponentInfo.innerHTML = ComponentNameArray[ComponentID - 1] + ComponentInfoArray[ComponentID - 1];
		document.all.WaterMarkSetting.style.display = "";
	}
}
function ShowThumbnailInfo(ThumbnailComponentID)
{
	if(ThumbnailComponentID == 0)
	{
		document.all.ThumbnailComponentInfo.innerHTML = "";
		document.all.ThumbnailSetting.style.display = "none";
	}
	else
	{
		document.all.ThumbnailComponentInfo.innerHTML = ComponentNameArray[ThumbnailComponentID - 1] + ComponentInfoArray[ThumbnailComponentID - 1];
		document.all.ThumbnailSetting.style.display = "";
	}
}
function ShowThumbnailSetting(ThumbnailSettingid)	
{
	if(ThumbnailSettingid == 0)
	{
		document.all.ThumbnailSetting1.style.display = "none";
		document.all.ThumbnailSetting0.style.display = "";
	}
	else
	{
		document.all.ThumbnailSetting1.style.display = "";
		document.all.ThumbnailSetting0.style.display = "none";
	}
}
function GetColor(img_val,input_val)
{
	var obj = document.getElementById("colourPalette");
	ColorImg = img_val;
	ColorValue = document.getElementById(input_val);
	if (obj){
	obj.style.left = getOffsetLeft(ColorImg) + "px";
	obj.style.top = (getOffsetTop(ColorImg) + ColorImg.offsetHeight) + "px";
	if (obj.style.visibility=="hidden")
	{
	obj.style.visibility="visible";
	}else {
	obj.style.visibility="hidden";
	}
	}
}
function getOffsetTop(elm) {
	var mOffsetTop = elm.offsetTop;
	var mOffsetParent = elm.offsetParent;
	while(mOffsetParent){
		mOffsetTop += mOffsetParent.offsetTop;
		mOffsetParent = mOffsetParent.offsetParent;
	}
	return mOffsetTop;
}
function getOffsetLeft(elm) {
	var mOffsetLeft = elm.offsetLeft;
	var mOffsetParent = elm.offsetParent;
	while(mOffsetParent) {
		mOffsetLeft += mOffsetParent.offsetLeft;
		mOffsetParent = mOffsetParent.offsetParent;
	}
	return mOffsetLeft;
}
function setColor(color)
{
	if (ColorValue){ColorValue.value = color;}
	if (ColorImg){ColorImg.style.backgroundColor = color;}
	document.getElementById("colourPalette").style.visibility="hidden";
}

</script>
123

⌨️ 快捷键说明

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