📄 admin_publish.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
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("postcode") &"</TD>"
Response.Write "                             </tr>"
Response.Write "                         </TABLE> </td> </tr></table>"
Response.Write "</td></tr>" & vbCrLf

Response.Write "<tr><td>"
  Response.Write " <input name=""truename"" type=hidden value="""& Rs("truename") &""">"
  Response.Write " <input name=""JobTitle"" type=hidden value="""& Rs("JobTitle") &""">"
  Response.Write " <input name=""Grade"" type=hidden value="""& Rs("Grade") &""">"
  Response.Write " <input name=""Company"" type=hidden value="""& Rs("Company") &""">"
  Response.Write " <input name=""PhoneCountry"" type=hidden value="""& Rs("PhoneCountry") &""">"
  Response.Write " <input name=""PhoneArea"" type=hidden value="""& Rs("PhoneArea") &""">"
  Response.Write "  <input name=""usertel"" type=hidden value="""& Rs("usertel") &""">"
  Response.Write " <input name=""FaxCountry"" type=hidden value="""& Rs("FaxCountry") &""">"
  Response.Write " <input name=""FaxArea"" type=hidden value="""& Rs("FaxArea") &""">"
  Response.Write " <input name=""FaxNumber"" type=hidden value="""& Rs("FaxNumber") &""">"
  Response.Write " <input name=""MobileNo"" type=hidden value="""& Rs("MobileNo") &""">"
  Response.Write " <input name=""usermail"" type=hidden value="""& Rs("usermail") &""">"
  Response.Write " <input name=""userID"" type=hidden value="""& Rs("userID") &""">"
  Response.Write " <input name=""MaterialClass"" type=hidden value="""& Rs("MaterialClass") &""">"
  Response.Write " <input name=""MaterialClassCode"" type=hidden value="""& Rs("MaterialClassCode") &""">"
  Response.Write " <input name=""address"" type=hidden value="""& Rs("address") &""">"
  Response.Write " <input name=""postcode"" type=hidden value="""& Rs("postcode") &""">"
   Response.Write " <input name=""SoftType"" type=hidden value="""& Rs("SoftType") &""">"
Response.Write "</td></tr>" & vbCrLf

	Response.Write " <tr><TD align=""center"" colspan=4 class=forumRow>" & vbCrLf
	Response.Write "　<input type=button class=button value=""查看内容长度"" name=Button onclick=""checklength(document.myform);"">" & vbCrLf
	Response.Write "　<input type=button class=button value=""复制到剪贴板"" name=Button onclick=""HighlightAll('myform.TxtContent');"">" & vbCrLf
	Response.Write " <input type=reset name=Submit2 class=button value=""清 除"">　" & vbCrLf
	Response.Write " <input type=Submit class=button value=""提 交"" name=Submit>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "</div>" & vbCrLf
	Rs.Close
	Set Rs = Nothing
	If CInt(DownsysClass.Setting(19)) = 0 Then
		Response.Write "<Script language=javascript>" & vbCrLf
		Response.Write "<!--//" & vbCrLf
		Response.Write "document.myform.content1.value = ubbcode(document.myform.content1.value);" & vbCrLf
		Response.Write "function ubbcode(temp) {" & vbCrLf
		Response.Write "temp = temp.replace(/<br>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<p>/ig,""\n"");" & vbCrLf
		Response.Write "temp = temp.replace(/<\/p>/ig,""\n"");" & vbCrLf
		Response.Write "return (temp);" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function ClearReset()" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write " document.myform.content1.value = '';" & vbCrLf
		Response.Write " focus();" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "function checklength(theform)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write " alert(""您的内容目前有 ""+theform.content1.value.length+"" 字节。"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "//-->" & vbCrLf
		Response.Write "</Script>" & vbCrLf
	End If
	Set NC_HtmlEdit = Nothing
End Sub

Private Function SelDownServer(intServerid, snid)
	Dim Rs_site
	Response.Write " <select name=""" & snid & """ size=""1"">"
	Response.Write "<option value=""0"""
	If intServerid = 0 Then Response.Write " selected"
	Response.Write ">↓请选择信息服务器↓</option>"
	Set Rs_site = CreateObject("adodb.recordset")
	SQL = "select serverid,ServerName,depth,rootid from NC_ServerSite where depth=0"
	Rs_site.Open SQL, conn, 1, 1
	Do While Not Rs_site.EOF
		Response.Write "<option value=""" & Rs_site("rootid") & """"
		If intServerid = Rs_site("rootid") Then Response.Write " selected"
		Response.Write ">" & Rs_site(1) & "</option>"
		Rs_site.movenext
	Loop
	Rs_site.Close
	Set Rs_site = Nothing
	Response.Write "</select>"
End Function

Private Sub checksave()
	If Len(Request.Form("softname")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息名称不能为空！</li>"
		Exit Sub
	End If
	If Len(Request.Form("sortid")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息分类不能为空！</li>"
		Exit Sub
	Else
		strSortid = Split(Trim(Request.Form("sortid")), ",")
	End If
	If Len(Request.Form("content1")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>信息简介不能为空！</li>"
		Exit Sub
	End If
	'If Len(Request.Form("RunSystem")) = 0 Then
		'Founderr = True
		'ErrMsg = ErrMsg + "<li>运行环境不能为空！</li>"
		'Exit Sub
	'End If
	'If Len(Request.Form("SoftSize")) = 0 Then
		'Founderr = True
		'ErrMsg = ErrMsg + "<li>大小不能为空！</li>"
		'Exit Sub
	'End If
	If CInt(DownsysClass.Setting(19)) = 1 Then
		TxtContent = Request.Form("content1")
	Else
		TxtContent = DownsysClass.HtmlEncodes(Request.Form("content1"))
	End If
End Sub

Private Sub savenew()
	Dim SiteRs
	Call checksave
	If Founderr = False Then
		SQL = "select * from NC_SoftInfo where (softid is null)"
		Rs.Open SQL, conn, 1, 3
		Rs.addnew
		Rs("softname") = Server.HtmlEncode(Request.Form("softname"))
		Rs("SoftVer") = server.HtmlEncode(Request.Form("SoftVer"))
		Rs("rootid") = strSortid(0)
		Rs("sortid") = strSortid(1)
		Rs("SortName") = strSortid(2)
		Rs("content") = TxtContent
		Rs("Language") = Request.Form("Language")
		Rs("SoftType") = Request.Form("SoftType")
		Rs("isCommend") = Request.Form("isCommend")
		Rs("RunSystem") = DownsysClass.HtmlEncodes(Request.Form("RunSystem"))
		Rs("impower") = Request.Form("impower")
		Rs("RunSystem") = Request.Form("RunSystem")
		Rs("Grades") = Request.Form("Grades")
		Rs("Decode") = Request.Form("Decode")
		Rs("isMember") = Request.Form("isMember")
		Rs("Homepage") = Request.Form("Homepage")
		Rs("Contact") = Request.Form("Contact")
		Rs("PreviewImg") = Request.Form("PreviewImg")
		Rs("Softimg") = Request.Form("Softimg")
		Rs("Errcode") = 0
		Rs("username") = Request.Form("username")
		If Len(Request.Form("MoneyNum")) = 0 Then
			Rs("MoneyNum") = 0
		Else
			Rs("MoneyNum") = Request.Form("MoneyNum")
		End If
		Rs("isTop") = Request.Form("isTop")
		Rs("DayHits") = 0
		Rs("WeekHits") = 0
		Rs("MonthHits") = 0
		Rs("Hits") = 0
		Rs("HitsTime") = DownsysClass.NowTime
		Rs("SoftTime") = DownsysClass.NowTime
		Rs("isUpdate") = 1
		Rs("isLock") = 0
  Rs("truename") = Request.Form("truename")
  Rs("Grade") = Request.Form("Grade")
  Rs("JobTitle") = Request.Form("JobTitle")
  Rs("Company") = Request.Form("Company")
  Rs("PhoneCountry") = Request.Form("PhoneCountry")
  Rs("PhoneArea") = Request.Form("PhoneArea")
  Rs("usertel") = Request.Form("usertel")
  Rs("FaxCountry") = Request.Form("FaxCountry")
  Rs("FaxArea") = Request.Form("FaxArea")
  Rs("FaxNumber") = Request.Form("FaxNumber")
  Rs("MobileNo") =Request.Form("MobileNo")
  Rs("usermail") = Request.Form("usermail")
  Rs("MaterialClassCode") = Request.Form("MaterialClassCode")
  Rs("userID") = Request.Form("userID")
  Rs("MaterialClass") = Request.Form("MaterialClass")
  Rs("address") = Request.Form("address")
  Rs("postcode") = Request.Form("postcode")

		Rs.Update
		Rs.Close
				Response.Flush
		Rs.Open "select top 1 softid from NC_SoftInfo order by softid desc", conn, 1, 1
		pubSoftID = Rs("softid")
		Rs.Close
				Response.Flush
		SQL = "update NC_SoftSort set SoftNum=SoftNum+1,isUpdate=1 where depth<>0 and sortid=" & CInt(strSortid(1))
		DownsysClass.Execute SQL
		SQL = "update NC_SoftSort set SoftNum=SoftNum+1,isUpdate=1 where depth=0 and rootid=" & CInt(strSortid(0))
		DownsysClass.Execute SQL
		'//////添加信息连接地址//////
				Response.Flush
		Set SiteRs = CreateObject("adodb.recordset")
		If Request.Form("no") <> "" And pubSoftID <> "" Then
			For i = 1 To Request("no")
				If Request("DownSite" & i & "") <> "" Then
					SQL = "select * from NC_SoftSite where (ID is null)"
					SiteRs.Open SQL, conn, 1, 3
					SiteRs.addnew
					SiteRs("SiteName") = Request.Form("SiteName" & i & "")
					SiteRs("DownSite") = Request.Form("DownSite" & i & "")
					SiteRs("sortid") = strSortid(1)
					SiteRs("SoftID") = pubSoftID
					SiteRs("serverid") = Request.Form("serverid" & i & "")
					SiteRs.Update
					SiteRs.Close
				End If
			Next
						
		End If
		Set SiteRs = Nothing
				Response.Flush
		DownsysClass.Execute ("update NC_SoftPublish set isAccept=1 where softid=" & Trim(Request.Form("sid")))
				Response.Flush
		NC_Admin.Succeed_Msg ("<li>添加" & Request.Form("softname") & "成功!</li>")
		Rs.Open "select top 1 SoftID from NC_SoftSite order by id desc", conn, 1, 1
		If Request.Form("isCreateHtml") = "yes" Then NC_SoftInfo.CreateSoftInfo (Rs("softid"))
		Rs.Close
		Set Rs = Nothing
				Set NC_SoftInfo = Nothing
		Response.Write "<meta http-equiv=""refresh"" content=""2;url='" & Request.ServerVariables("HTTP_REFERER") & "'"">" & vbCrLf
				Response.Flush
	End If
End Sub
%>
上一页 1 23
⌨️ 快捷键说明

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