📄 select.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
字号:
<!--#include file="Select.inc"-->
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
dim Action,xSelect
dim PageName,FormName,FormContent
dim Job_Money,Products_Model,Products_Specification,News_Form
dim Down_Language,Down_IsAuthorized,Down_Category,News_Form
dim Down_Platform
Action=replace(request.querystring("Action"),"'","")
xSelect=replace(request.querystring("xSelect"),"'","")
Job_Money=Job_Money
if xSelect="Save" then
Select case Action
case "Job_Money"
Job_Money=Replace(request.form(Action),CHR(10),"||")
Job_Money=Replace(Job_Money,CHR(13),"")
case "Products_Model"
Products_Model=Replace(request.form(Action),CHR(10),"||")
Products_Model=Replace(Products_Model,CHR(13),"")
case "Products_Specification"
Products_Specification=Replace(request.form(Action),CHR(10),"||")
Products_Specification=Replace(Products_Specification,CHR(13),"")
case "News_Form"
News_Form=Replace(request.form(Action),CHR(10),"||")
News_Form=Replace(News_Form,CHR(13),"")
case "Down_Category"
Down_Category=Replace(request.form(Action),CHR(10),"||")
Down_Category=Replace(Down_Category,CHR(13),"")
case "Down_Language"
Down_Language=Replace(request.form(Action),CHR(10),"||")
Down_Language=Replace(Down_Language,CHR(13),"")
case "Down_IsAuthorized"
Down_IsAuthorized=Replace(request.form(Action),CHR(10),"||")
Down_IsAuthorized=Replace(Down_IsAuthorized,CHR(13),"")
case "Down_Platform"
Down_Platform=Replace(request.form(Action),CHR(10),"||")
Down_Platform=Replace(Down_Platform,CHR(13),"")
end Select
Set fs=server.createObject("Scripting.FileSystemObject")
Set Ts = fs.CreateTextFile(server.mapPath("Select.inc"), True) 
Ts.writeline "<" & chr(37)
Ts.writeline "Job_Money=" & chr(34) & "" & Job_Money & "" & chr(34)
Ts.writeline "Products_Model=" & chr(34) & "" & Products_Model & "" & chr(34)
Ts.writeline "Products_Specification=" & chr(34) & "" & Products_Specification & "" & chr(34)
Ts.writeline "News_Form=" & chr(34) & "" & News_Form & "" & chr(34)
Ts.writeline "Down_Category=" & chr(34) & "" & Down_Category & "" & chr(34)
Ts.writeline "Down_Language=" & chr(34) & "" & Down_Language & "" & chr(34)
Ts.writeline "Down_IsAuthorized=" & chr(34) & "" & Down_IsAuthorized & "" & chr(34)
Ts.writeline "Down_Platform=" & chr(34) & "" & Down_Platform & "" & chr(34)
Ts.writeline chr(37) & ">"
Set Ts = nothing
Set fs=nothing
response.Write "<script>window.close();</script>"
end if
Select case Action
case "Job_Money"
PageName="添加招聘职位的薪资待遇"
FormName=Action
FormContent=Replace(Job_Money,"||",CHR(10))
case "Products_Model"
PageName="添加产品型号"
FormName=Action
FormContent=Replace(Products_Model,"||",CHR(10))
case "Products_Specification"
PageName="添加产品规格"
FormName=Action
FormContent=Replace(Products_Specification,"||",CHR(10))
case "News_Form"
PageName="添加新闻来源"
FormName=Action
FormContent=Replace(News_Form,"||",CHR(10))
case "Down_Category"
PageName="添加软件类型"
FormName=Action
FormContent=Replace(Down_Category,"||",CHR(10))
case "Down_Language"
PageName="添加软件显示语言"
FormName=Action
FormContent=Replace(Down_Language,"||",CHR(10))
case "Down_IsAuthorized"
PageName="添加软件授权形式"
FormName=Action
FormContent=Replace(Down_IsAuthorized,"||",CHR(10))
case "Down_Platform"
PageName="添加软件运行环境"
FormName=Action
FormContent=Replace(News_Form,"||",CHR(10))
end Select
response.Write "<html>"&_
               "<head>"&_
               "<meta http-equiv=Content-Type content=text/html; charset=gb2312>"&_
               "<title>添加列表</title>"&_
               "<link href=Design.css rel=stylesheet TYPE=text/css>"&_
			   "</head>"&_
			   "<body bgColor=menu topmargin='0'>"&_
			   "<TABLE WIDTH='350'  BORDER='0' ALIGN='center' cellpadding='0' CELLSPACING='0'>"&_
			   "<Form method='post' action='Select.asp?xSelect=Save&Action=" & Action & "'>"&_
			   "<TR>"&_
			   "<TD>"&_
			   "<fieldset>"&_
			   "<legend>" & PageName & "</legend>"&_
			   "<TABLE WIDTH='350'  BORDER='0' ALIGN='center' cellpadding='0' CELLSPACING='0'>"&_
			   "<TR>"&_
			   "<TD HEIGHT=5></TD>"&_
			   "</TR>"&_
			   "<TR>"&_
			   "<TD ALIGN='center'>"&_
			   "<TEXTAREA NAME='" & FormName & "' rows='8' cols='44' CLASS='submit_all'>" & FormContent & "</TEXTAREA></TD>"&_
			   "</TR>"&_
			   "<TR>"&_
			   "<TD HEIGHT=5></TD>"&_
			   "</TR>"&_
			   "</TABLE>"&_
			   "</fieldset>	"&_
			   "</TD>"&_
			   "</TR>"&_
			   "<TR>"&_
			   "<TD HEIGHT='40' ALIGN='right'>"&_
			   "<INPUT NAME='提交' TYPE=submit CLASS='Wenben' id=Ok VALUE=保存列表>　"&_
			   "<INPUT TYPE=button CLASS='Wenben' onclick='window.close();' VALUE='  取消  '></TD>"&_
			   "</TR>"&_
			   "</form>"&_
			   "<TR>"&_
			   "<TD HEIGHT='1' bgcolor='#666666'></TD>"&_
			   "</TR>"&_
			   "<TR>"&_
			   "<TD HEIGHT='5'></TD>"&_
			   "</TR>"&_
			   "<TR>"&_
			   "<TD>"&_
			   "1.添加时请用回车分开，请勿输入“||”字符。<br>"&_
			   "2.您也可以直接打开“Inc/Select.inc”进行修改。"&_
			   "</TD>"&_
			   "</TR>"&_
			   "</TABLE>"&_
               "</body>"&_
               "</html>"
%>
⌨️ 快捷键说明

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