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

📄 publish.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
				Response.Write FormatDateTime(Rs("softTime"), 2)
				Response.Write "</font>"
			Else
				Response.Write FormatDateTime(Rs("softTime"), 2)
			End If
			Response.Write "</td></tr>"
			Rs.movenext
			i = i + 1
			j = j + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Response.Write " <tr>"
	Response.Write " <td height=""22"" class=""forumrow"">管理</td>"
	Response.Write " <td height=""22"" colspan=""3"" class=""forumrow""><a href=""javascript:SelectAll()"">全选/反选</a><input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()"">"
	Response.Write " <input type=""radio"" name=""action"" value=""move"">批量移动 ->"
	srtSortingList = DownsysClass.SortingJumpList
	srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
	Response.Write srtSortingList
	Response.Write " "
	'If CInt(DownsysClass.Setting(5)) = 0 Then Response.Write "<input type=""radio"" name=""action"" value=""CreateHtml"">批量生成(HTML)"
	Response.Write "　<BR>"
	Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""del"">彻底删除"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""dele"">放入回收站"
	'Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""isCommend"">设置推荐"
	'Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""noCommend"">取消推荐"
	'Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""istop"">信息置顶"
	'Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""notop"">取消置顶"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""indate"">更新时间"
	Response.Write "</td>"
	Response.Write " <td height=""22"" class=""forumrow""><input type=""submit"" name=""Submit"" value=""执行操作"" class=button onclick=""{if(confirm('您确定执行的操作吗?')){this.document.selform.submit();return true;}return false;}""></td>"
	Response.Write " </tr></form>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
	Call showpage
	Response.Write "</td></tr>"
	Response.Write "</table>"
End Sub

Private Sub setclass(isEdit)
	Dim NC_HtmlEdit
	Dim srtSortingList
	Dim RunSystem
	Dim SoftType
	Dim Re
	Set NC_HtmlEdit = New HtmlEditor_Cls
	If isEdit Then
		SQL = "select * from NC_SoftPublish where softid=" & Request("softid")
		Rs.Open SQL, Conn, 1, 1
		Set Rs3 = CreateObject("Adodb.recordset")
		SQL3 = "select * from NC_user where username like '%"&DownsysClass.memberName&"%'"
		Rs3.Open SQL3, Conn, 1, 1
		Set Rs4 = CreateObject("Adodb.recordset")
		SQL4 = "select * from MaterialClass where MaterialClassCode like '%"& Left((Rs3("MaterialClassCode")), 2) &"%'"
		Rs4.Open SQL4, Conn, 1, 1
		Set Rs5 = CreateObject("Adodb.recordset")
		SQL5 = "select * from MaterialClass where MaterialClassCode like '%"& Left((Rs3("MaterialClassCode")), 4) &"%'"
		Rs5.Open SQL5, Conn, 1, 1
		Set Rs6 = CreateObject("Adodb.recordset")
		SQL6 = "select * from MaterialClass where MaterialClassCode like '%"& Rs3("MaterialClassCode") &"%'"
		Rs6.Open SQL6, Conn, 1, 1

		DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
		sortid = CStr(Rs("sortid"))
		rootid = CStr(Rs("rootid"))
		softTitle = "添加信息"
		If CInt(DownsysClass.Setting(19)) = 1 Then
			SoftBody = Server.HTMLEncode(Rs("Content"))
		Else
			SoftBody = Rs("Content")
		End If
		Set Re = New RegExp
		Re.IgnoreCase =true
		Re.Global=True
		Re.Pattern="\[br\]"
		SoftBody = Re.Replace(SoftBody,"")
		Re.Pattern="\[align=right\](.*)\[\/align\]"
		SoftBody = Re.Replace(SoftBody,"")
		Set Re = Nothing
	Else
		Set Rs3 = CreateObject("Adodb.recordset")
		SQL3 = "select * from NC_user where username like '%"&DownsysClass.memberName&"%'"
		Rs3.Open SQL3, Conn, 1, 1
		Set Rs4 = CreateObject("Adodb.recordset")
		SQL4 = "select * from MaterialClass where MaterialClassCode = "& Left((Rs3("MaterialClassCode")), 2) &""
		Rs4.Open SQL4, Conn, 1, 1
		Set Rs5 = CreateObject("Adodb.recordset")
		SQL5 = "select * from MaterialClass where MaterialClassCode = "& Left((Rs3("MaterialClassCode")), 4) &""
		Rs5.Open SQL5, Conn, 1, 1
		Set Rs6 = CreateObject("Adodb.recordset")
		SQL6 = "select * from MaterialClass where MaterialClassCode = "& Rs3("MaterialClassCode") &""
		Rs6.Open SQL6, Conn, 1, 1
		softTitle = "添加信息"
	End If
	Response.Write "<script language=""javascript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write Chr(9) & "function ToRunsystem(addTitle) {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var currentTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "currentTitle = document.myform.RunSystem.value;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "revisedTitle = currentTitle+addTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.value=revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.focus();" & vbCrLf
	Response.Write Chr(9) & "return; }" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script src=images/checksave.js type=text/javascript></script>"
	Response.Write "<div onkeydown=CtrlEnter()>"
	Response.Write "<table width=""750"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""tableBorder"">"
	Response.Write "<form name=""myform"" method=""post"" action=""publish.asp"" onSubmit=""return CheckSoft(this)"">"
	Response.Write " <input type=""Hidden"" name=""action"" value='"
	If isEdit Then
		Response.Write "modify"
	Else
		Response.Write "save"
	End If
	Response.Write "'>"
	Response.Write Chr(9) & Chr(9) & " "
	If CInt(DownsysClass.Setting(19)) = 1 Then
		Response.Write Chr(9) & Chr(9) & " <input type=""hidden"" name=""content1"" id=body value="""
		If isEdit Then
			Response.Write SoftBody
		End If
		Response.Write """>"
		Response.Write Chr(9) & Chr(9) & " "
	End If
	Response.Write " "
	If isEdit Then
		Response.Write " <input type=""Hidden"" name=""softid"" value='"
		Response.Write CStr(Request("softid"))
		Response.Write "'>"
		Response.Write " "
	End If

	Response.Write " <tr>"
	Response.Write " <th colspan=""2"">"
	Response.Write softTitle
	Response.Write "</th>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td width=""15%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">信息分类：</td>"
	Response.Write " <td width=""85%"" class=""forumRow"">"
	srtSortingList = DownsysClass.SortingJumpList
	srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
	Response.Write srtSortingList
	Response.Write Chr(9) & " </td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">信息主题：</td>"
	Response.Write " <td class=""forumRow""><input name=""softname"" type=""text"" size=""40"" value="""
	If isEdit Then
		Response.Write Rs("softname")
	End If
	Response.Write """></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">信息类型：</td>"
	Response.Write " <td class=""forumRow"">"
	SoftType = Split(DownsysClass.Setting(35), ",")
	For i = 0 To UBound(SoftType)
		Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
		If isEdit Then
			If SoftType(i) = Rs("SoftType") Then Response.Write " checked"
		Else
			If i = 0 Then Response.Write " checked"
		End If
		Response.Write ">" & Trim(SoftType(i)) & " "
		If i = 6 Then Response.Write "<br>"
	Next
	Response.Write "</td>"
	Response.Write " </tr>"
	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="""
	If isEdit Then
		Response.Write Rs("PreviewImg")
	End If
	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="""
	If isEdit Then
		Response.Write Rs("softimg")
	End If
	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>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">联系人：</td>"
	Response.Write " <td class=""forumRow""><input name=""Contact"" type=""text"" size=""25"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Contact")
		Response.Write """"
	End If
	Response.Write ">"
	Response.Write " 公司主页: <input name=""Homepage"" type=""text"" size=""30"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Homepage")
		Response.Write """"
		else
		Response.Write "value="""
		Response.Write Rs3("Home")
		Response.Write """"

	End If
	Response.Write ">"
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write "<TR height=""22"">"
	Response.Write Chr(9) & "<TD colspan=4 align=center class=forumHeaderBackgroundAlternate><B>"
	If CInt(DownsysClass.Setting(19)) = 1 Then
		Response.Write "HTML编辑器"
	Else
		Response.Write "您现在使用的编辑器不支持HTML语法，如果需要HTML语法支持，请在基本设置开启HTML编辑器。"
	End If
	Response.Write " </B></fort></td>"
	Response.Write "</TR>"
	Response.Write "<TR height=""22"">"
	Response.Write Chr(9) & "<TD colspan=4 class=forumRow>"
	If CInt(DownsysClass.Setting(19)) = 1 Then
		NC_HtmlEdit.Init_HtmlEdit
	Else
		Response.Write Chr(9) & "<textarea name=content1 style=""width:100%;"" rows=12>"
		If isEdit Then
			Response.Write SoftBody
		End If
		Response.Write "</textarea>"
	End If
	Response.Write "</TD>"
	Response.Write "</TR>"
	Response.Write " <tr height=""22"">"
	If isEdit Then
		Response.Write "<input name=""updateTime"" type=hidden value=""yes"">"
	End If
	If CInt(DownsysClass.Setting(5)) = 0 Then Response.Write "<input type=hidden name='isCreateHtml' value='yes' checked>" 
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " <tr height=""22"">"
	Response.Write " <td colspan=""2"" id=""upid"" class=""forumRow""> <span class=""C""><font color=""#FF0000""><strong>请务必检查联系资料！  </strong></font></span>如要修改请点击<a href=updateinfo.asp>修改资料</a></td>"
	Response.Write " </tr>"
	Response.Write " <tr height=""22"">"
	Response.Write " <td colspan=""2"" id=""upid1"" 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""> "& Rs3("truename") &"（"& Rs3("JobTitle") &"）"
if Rs3("Grade")=2 then
Response.Write " <span class=""C""><font color=""#FF0000""><strong>VIP用户</strong></font></span>"
else
Response.Write " <span class=""C""><font color=""#FF0000""><strong>普通用户</strong></font></span>"
end if
Response.Write "</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""> "& Rs3("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"">"& Rs3("PhoneCountry") &"-"& Rs3("PhoneArea") &"-"& Rs3("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"">"& Rs3("FaxCountry") &"-"& Rs3("FaxArea") &"-"& Rs3("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"">"& Rs3("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""> "& Rs3("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"">"& Rs4("Description") &"-"& Rs5("Description") &"-"& Rs6("Description") &"</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"">"& Rs3("address") &"</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"">"& Rs3("postcode") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                         </TABLE> </td> </tr></table>"

	Response.Write " </td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">"
  Response.Write " <input name=""truename"" type=hidden value="""& Rs3("truename") &""">"
  Response.Write " <input name=""JobTitle"" type=hidden value="""& Rs3("JobTitle") &""">"
  if Rs3("Grade")=2 then
Response.Write " <input name=""Grade"" type=hidden value=""VIP用户"">"
else
Response.Write " <input name=""Grade"" type=hidden value=""普通用户"">"
end if
  Response.Write " <input name=""Company"" type=hidden value="""& Rs3("Company") &""">"
  Response.Write " <input name=""PhoneCountry"" type=hidden value="""& Rs3("PhoneCountry") &""">"
  Response.Write " <input name=""PhoneArea"" type=hidden value="""& Rs3("PhoneArea") &""">"
  Response.Write "  <input name=""usertel"" type=hidden value="""& Rs3("usertel") &""">"
  Response.Write " <input name=""FaxCountry"" type=hidden value="""& Rs3("FaxCountry") &""">"
  Response.Write " <input name=""FaxArea"" type=hidden value="""& Rs3("FaxArea") &""">"
  Response.Write " <input name=""FaxNumber"" type=hidden value="""& Rs3("FaxNumber") &""">"
  Response.Write " <input name=""MobileNo"" type=hidden value="""& Rs3("MobileNo") &""">"
1234

⌨️ 快捷键说明

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