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

📄 admin_publish.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	Response.Write " <td class=""forumRow""><input name=""softname"" type=""text"" size=""25"" value="""
	Response.Write Rs("softname")
	'Response.Write """> 版本: <input name=""softver"" type=""text"" size=""20"" value="""
	'Response.Write Rs("softver")
	Response.Write """></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">运行环境：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow""><input name=""RunSystem"" type=""text"" size=""50"" value="""
	'Response.Write Rs("RunSystem")
	'Response.Write """><BR>" & vbCrLf
	'RunSystem = Split(DownsysClass.Setting(34), ",")
	'For i = 0 To UBound(RunSystem)
		'Response.Write "<a href='javascript:ToRunsystem(""" & Trim(RunSystem(i)) & "/"")'><u>" & Trim(RunSystem(i)) & "</u></a> | "
		'If i = 7 Then Response.Write "<br>"
	'Next
	'Response.Write "</td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">详细大图：</td>"
	Response.Write " <td class=""forumRow""><input id=image2 name=""PreviewImg"" type=""text"" size=""40"" value="""
	
		Response.Write Rs("PreviewImg")
	
	Response.Write """><font color=""#808080""> 信息预览图片，大小不定</font></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td colspan=2 class=""forumRow""><iframe name=""ad"" frameborder=0 width=""100%"" height=42 scrolling=no src=upfile.asp?type=file&upnum=2></iframe> </td></tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">缩略图：</td>"
	Response.Write " <td class=""forumRow""><input id=image1 name=""Softimg"" type=""text"" size=""30"" value="""
	
		Response.Write Rs("softimg")
	
	Response.Write """><font color=""#808080""> 信息的缩略图，建议大小为：125×100 px</font></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td colspan=2 class=""forumRow""><iframe name=""image"" frameborder=0 width='100%' height='42' scrolling=no src=upfile.asp?type=image&upnum=1></iframe></td>"
	Response.Write " </tr>"
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">信息大小：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow""> <input type=""text"" name=""SoftSize"" size=""14"" maxlength=""10"" value='"
	'Response.Write Trim(Rs("SoftSize"))
	'Response.Write "'> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>" & vbCrLf
	'Response.Write " KB " & vbCrLf
	'Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">" & vbCrLf
	'Response.Write " MB <font color=""#FF0000"">！</font>" & vbCrLf
	'Response.Write " 解压密码:<input type=""text"" name=""Decode"" size=""15"" maxlength=""100"" value='"
	'Response.Write Trim(Rs("Decode"))
	'Response.Write "'> <font color=""#808080"">没有请留空</font> </td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">授权方式：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow"" nowrap> <select name=""impower"">" & vbCrLf
	'Response.Write " "
	'Response.Write "<option value=""" & Rs("impower") & """>" & Rs("impower") & "</option>"
	'Response.Write " <option value=""共享信息"">共享信息</option>" & vbCrLf
	'Response.Write " <option value=""免费信息"">免费信息</option>" & vbCrLf
	'Response.Write " <option value=""自由信息"">自由信息</option>" & vbCrLf
	'Response.Write " <option value=""试用信息"">试用信息</option>" & vbCrLf
	'Response.Write " <option value=""演示信息"">演示信息</option>" & vbCrLf
	'Response.Write " <option value=""商业信息"">商业信息</option>" & vbCrLf
	'Response.Write " </select>" & vbCrLf
	'Response.Write " 信息语言: <select name=""Language"">" & vbCrLf
	'Response.Write " "
	'Response.Write "<option value=""" & Rs("Language") & """>" & Rs("Language") & "</option>"
	'Response.Write " <option value=""简体中文"">简体中文</option>" & vbCrLf
	'Response.Write " <option value=""繁体中文"">繁体中文</option>" & vbCrLf
	'Response.Write " <option value=""英文"">英文</option>" & vbCrLf
	'Response.Write " </select>" & vbCrLf
	'Response.Write " 信息等级: <select name=""Grades"" size=""1"">" & vbCrLf
	'Response.Write " <option value=""1"" name=""Grades"" "
	'If Trim(Rs("Grades")) = "1" Then
		'Response.Write "selected"
	'End If
	'Response.Write ">一星级</option>" & vbCrLf
	'Response.Write " <option value=""2"" name=""Grades"" "
	'If Trim(Rs("Grades")) = "2" Then
		'Response.Write "selected"
	'End If
	'Response.Write ">二星级</option>" & vbCrLf
	'Response.Write " <option value=""3"" name=""Grades"" "
	'If Trim(Rs("Grades")) = "3" Then
		'Response.Write "selected"
	'End If
	'Response.Write ">三星级</option>" & vbCrLf
	'Response.Write " <option value=""4"" name=""Grades"" "
	'If Trim(Rs("Grades")) = "4" Then
		'Response.Write "selected"
	'End If
	'Response.Write ">四星级</option>" & vbCrLf
	'Response.Write " <option value=""5"" name=""Grades"" "
	'If Trim(Rs("Grades")) = "5" Then
		'Response.Write "selected"
	'End If
	'Response.Write ">五星级</option>" & vbCrLf
	'Response.Write " </select>" & vbCrLf
	'Response.Write "</td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">联系人：</td>" & vbCrLf
	Response.Write " <td class=""forumRow""><input name=""Contact"" type=""text"" size=""25"" value="""
	Response.Write Rs("Contact")
	Response.Write """>" & vbCrLf
	Response.Write " 公司主页: <input name=""Homepage"" type=""text"" size=""30"" value="""
	Response.Write Rs("Homepage")
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "<TR height=""22"">" & vbCrLf
	Response.Write "<TD colspan=4 class=forumHeaderBackgroundAlternate><B>信息简介</B></TD>" & vbCrLf
	Response.Write "</TR>" & vbCrLf
	Response.Write "<TR height=""22"">" & vbCrLf
	Response.Write "<TD colspan=4 class=forumRow> "
	If CInt(DownsysClass.Setting(19)) = 1 Then
		NC_HtmlEdit.Init_HtmlEdit
	Else
		Response.Write "<textarea name=content1 style=""width:100%;"" rows=12>"
		Response.Write Rs("Content")
		Response.Write "</textarea>"
	End If
	Response.Write "</TD>" & vbCrLf
	Response.Write "</TR>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td height=""21"" align=""right"" class=""forumRowHighlight"">是否推荐：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow""> <input name=""isCommend"" type=""radio"" value=""0"" checked>" & vbCrLf
	'Response.Write " 不推荐　<input type=""radio"" name=""isCommend"" value=""1"">" & vbCrLf
	'Response.Write " 推荐　</td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	Response.Write " <tr height=""22"">" & vbCrLf
	Response.Write " <td align=""right"" noWrap class=""forumRowHighlight"">是否推荐置顶：</td>" & vbCrLf
	Response.Write " <td class=""forumRow""> <input name=""isCommend"" type=""radio"" value=""0"" checked>" & vbCrLf
	Response.Write " 不推荐　<input type=""radio"" name=""isCommend"" value=""1"">" & vbCrLf
	Response.Write " 信息推荐　<input name=""isTop"" type=""radio"" value=""0"" checked>" & vbCrLf
	Response.Write " 不置顶　<input type=""radio"" name=""isTop"" value=""1"">" & vbCrLf
	Response.Write " 信息置顶　</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr height=""22"">" & vbCrLf
	''Response.Write " <td align=""right"" class=""forumRowHighlight"">会员信息设置：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow""> <select name=""isMember"" size=""1"">" & vbCrLf
	'Set Rs1 = DownsysClass.Execute("select * from NC_UserGroup order by groupid")
	'Do While Not Rs1.EOF
		'Response.Write "<option value="""
		'Response.Write Rs1("Grades")
		'Response.Write """>"
		'Response.Write Rs1("GroupName")
		'Response.Write "</option>" & vbCrLf
		'Rs1.movenext
	'Loop
	'Rs1.Close
	'Set Rs1 = Nothing
	'Response.Write " </select>&nbsp;&nbsp;" & vbCrLf
	'Response.Write "信息信息所需的点数：<input name=""MoneyNum"" type=""text"" size=""6"" value=""20"">&nbsp;&nbsp;" & vbCrLf
	'If CInt(DownsysClass.Setting(5)) = 0 Then Response.Write "<input type=checkbox name='isCreateHtml' value='yes' checked> 同时生成（HTML）"
	'Response.Write "</td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td class=""forumRowHighlight"">通讯方式：<br> <font color=""#FF0000"">请复制到下面的通讯方式框！</font></td>" & vbCrLf
	'Response.Write " <td class=""forumRow"">通讯方式1：<input type=""text"" value="""
	'Response.Write Rs("Site_1")
	'Response.Write """ size=""60""><BR>通讯方式2：<input type=""text"" value="""
	'Response.Write Rs("Site_2")
	'Response.Write """ size=""60""><BR>通讯方式3：<input type=""text"" value="""
	'Response.Write Rs("Site_3")
	'Response.Write """ size=""60""></td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr height=""22"">" & vbCrLf
	'Response.Write " <td colspan=""2"" class=""forumRow"">" & vbCrLf
	'Response.Write " <script language=""javascript"">" & vbCrLf
	'Response.Write " function setid()" & vbCrLf
	'Response.Write " {" & vbCrLf
	'Response.Write " str='';" & vbCrLf
	'Response.Write " if(!window.myform.no.value)" & vbCrLf
	'Response.Write " window.myform.no.value=1;" & vbCrLf
	'Response.Write " " & " for(i=1;i<=window.myform.no.value;i++)" & vbCrLf
	'Response.Write " str+=''+'<input type=""text"" name=""SiteName'+i+'"" value=""通讯方式'+i+'"" size=12>&nbsp;URL：<input type=""text"" name=""DownSite'+i+'"" size=40 value="""">&nbsp;"
	'i = "'+i+'"
	'SelDownServer 0, "serverid" & i
	'Response.Write "<BR>';" & vbCrLf
	'Response.Write " window.upid.innerHTML=str+' <font color=red>* 如果选择了信息服务器，请根据相应的通讯方式输入信息名称，前面请不要添加“/”。</font>';" & vbCrLf
	'Response.Write " }" & vbCrLf
	'Response.Write " <!/script>设置添加地址的数量:&nbsp;<input type=""text"" name=""no"" value=""1"" size=2>&nbsp;&nbsp;<input type=""button"" name=""Button"" class=button onclick=""setid();"" value=""添加通讯方式数"">" & vbCrLf
	'Response.Write " <font color=red>* 如果没有选择信息服务器请输入完整的信息路径</font> " & vbCrLf
	'Response.Write " </td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr height=""22"">" & vbCrLf
	'Response.Write " <td colspan=""2"" id=""upid"" class=""forumRow""> </td>" & vbCrLf
	'Response.Write " </tr>" & vbCrLf
	'Response.Write " <tr> " & vbCrLf
	'Response.Write " <td class=""forumRowHighlight"">信息上传：</td>" & vbCrLf
	'Response.Write " <td class=""forumRow""><iframe name=""ad"" frameborder=0 width=100% height=45 scrolling=no src=upfile.asp?type=file></iframe> </td></tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <TD colspan=4 class=forumRow>"
	Response.Write " <table width=""95%"" align=""center""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write "                 <tr> <td bgcolor=""#CCCCCC""><TABLE width=""100%"" border=0 cellPadding=4 cellSpacing=1>"
Response.Write "                             <tr>"
Response.Write "                                 <td width=""25%"" align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">姓名：</TD>"
Response.Write "                                <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("truename") &"（"& Rs("JobTitle") &"）<span class=""C""><font color=""#FF0000""><strong>"& Rs("Grade") &"</strong></font></span></TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">公司名称：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("Company") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">电话：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("PhoneCountry") &"-"& Rs("PhoneArea") &"-"& Rs("usertel") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">传真：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("FaxCountry") &"-"& Rs("FaxArea") &"-"& Rs("FaxNumber") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">移动电话：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("MobileNo") &"</td>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                                 <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">电子邮件：</TD>"
Response.Write "                                 <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px""> "& Rs("usermail") &"  </TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                               <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">所在城市：</TD>"
Response.Write "                               <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("MaterialClassCode") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                             <tr>"
Response.Write "                               <td align=""right"" bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">详细地址：</TD>"
Response.Write "                               <td bgcolor=""#FFFFFF"" style=""PADDING-LEFT: 10px"">"& Rs("address") &"</TD>"
Response.Write "                             </tr>"
123

⌨️ 快捷键说明

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