service.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 470 行 · 第 1/2 页

ASP
470 行
字号
12
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="../Pub_fun.asp"-->
<!--#include file="../scripts/openwindow.js"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>新建服务反馈</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<script language="VBScript">
sub checkinfo()  
  if trim(FeedBackmain.FeedBackTopic.value) = "" then
		msgbox "填写反馈主题！！"
		FeedBackmain.FeedBackTopic.focus
		exit sub
  end if
  if trim(FeedBackmain.Productname.value) = "0" then
		msgbox "请选择产品！！"
		FeedBackmain.Productname.focus
		exit sub
  end if
  if trim(FeedBackmain.FeedBackclientID.value) = "0" then
		msgbox "请选择相关客户！！"
		FeedBackmain.FeedBackclientID.focus
		exit sub
  end if
    if trim(FeedBackmain.FeedBackDate.value) = "" then
		msgbox "请选择反馈日期！！"
		FeedBackmain.FeedBackDate.focus
		exit sub
  end if
  if trim(FeedBackmain.FeedBacktouchmanID.value) = "0" then
		msgbox "请选择相关联系人！！"
		FeedBackmain.FeedBacktouchmanID.focus
		exit sub
  end if
  
  if trim(FeedBackmain.Feedbackdetail.value) <> "" then
		if len(trim(FeedBackmain.Feedbackdetail.value))>760 then
		msgbox "输入的反馈说明内容太多，请重新编辑！！"		
		FeedBackmain.Feedbackdetail.focus
		exit sub
		end if
   else
		msgbox "请输入反馈说明！！"
		FeedBackmain.Feedbackdetail.focus
		exit sub
  end if
if len(trim(FeedBackmain.FeedbackResult.value))>760 then
		msgbox "输入的处理结果内容太多，请重新编辑！！"		
		FeedBackmain.FeedbackResult.focus
		exit sub
end if
  FeedBackmain.act.value="add"
  FeedBackmain.action="service.asp"
  FeedBackmain.submit
End sub

sub editcheckinfo()  

  if trim(FeedBackmain.FeedbackResult.value) <> "" then
		if len(trim(FeedBackmain.FeedbackResult.value))>760 then
		msgbox "输入的处理结果内容太多，请重新编辑！！"		
		FeedBackmain.FeedbackResult.focus
		exit sub
		end if
   else
		msgbox "请输入处理结果！！"
		FeedBackmain.FeedbackResult.focus
		exit sub
  end if
  FeedBackmain.act.value="edit_edit"
  FeedBackmain.action="service.asp"
  FeedBackmain.submit
End sub

sub clientchang()
    FeedBackmain.act.value="choose"
    FeedBackmain.action="service.asp"
    FeedBackmain.submit
end sub

sub del()
if confirm("确实要删除此记录么？",vbyesno,64) then
    FeedBackmain.act.value="del"
    FeedBackmain.action="service.asp"
    FeedBackmain.submit
end if
end sub
</script>

<BODY><BR>
<%

if request("act")="edit" and request("feedbackID")<>"" then
   editflag=1
 else 
    editflag=0
end if
''判断操作类型
if request("act")="edit_edit" then
'获取要修改的记录的ID
	if request("FeedBackID")<>"" then
	    FeedBackID=cint(request("FeedBackID"))
	else
	    FeedBackID=0
	end if
'获取其他要修改的参数
	if request("FeedBackOver")<>"" then
	    FeedBackOver=cint(request("FeedBackOver"))
	else
	    FeedBackOver=0
	end if
	FeedBackOverDate=trim(request("FeedBackOverDate"))
	FeedBackResult=htmlencode2(trim(request("FeedBackResult")))

	FeedBackRevisorID=session("session_user")
	FeedBackReviseDate=date()
	if request("FeedBackOpenFlag")<>"" then
	    FeedBackOpenFlag=cint(request("FeedBackOpenFlag"))
	else
	    FeedBackOpenFlag=0
	end if
''执行修改
	sql="update feedback set FeedBackOver="&FeedBackOver&",FeedBackOverDate='"&FeedBackOverDate&"',FeedBackResult='"&FeedBackResult&"',FeedBackRevisorID="&FeedBackRevisorID&",FeedBackReviseDate='"&FeedBackReviseDate&"',FeedBackOpenFlag="&FeedBackOpenFlag
	sql=sql&" where FeedBackID="&FeedBackID

	conn.execute sql
''提示用户成功，并返回到指定页面
%>
<script language="VBScript">
			msgbox "修改成功！！"	  
			window.location="servicelist.asp"
</script>  
<%
end if

''判断操作动作是否是删除
if request("act")="del" then
''获取要删除的记录的ID号
	if request("FeedBackID")<>"" then
	    FeedBackID=cint(request("FeedBackID"))
	else
	    FeedBackID=0
	end if
''执行删除操作
	sql="delete from feedback where feedbackid="&FeedBackID
	conn.execute sql
%>
<script language="VBScript">
			msgbox "删除成功！！"	  
			window.location="servicelist.asp"
</script>  
<%
end if
''判断操作动作是否是添加
 if request("act")="add" then
 ''获取传递过来的参数
    FeedBackTopic=trim(request("FeedBackTopic"))
	FeedBackProduct=trim(request("Productname"))
	FeedBackClientID=cint(trim(request("FeedBackClientID")))
	FeedBackSort=request("FeedBackSort")
	FeedBackDate=request("FeedBackDate")
	FeedBackTouchmanID=cint(trim(request("FeedBackTouchmanID")))
	if request("FeedBackOver")<>"" then
	    FeedBackOver=cint(request("FeedBackOver"))
	else
	    FeedBackOver=0
	end if
	FeedBackOverDate=request("FeedBackOverDate")
	Feedbackdetail=htmlencode2(request("Feedbackdetail"))
	FeedBackResult=htmlencode2(trim(request("FeedBackResult")))
	if request("FeedBackOpenFlag")<>"" then
	    FeedBackOpenFlag=cint(request("FeedBackOpenFlag"))
	else
	    FeedBackOpenFlag=0
	end if
	FeedBackCreatorID=trim(request("FeedBackCreator_ID"))
	FeedBackCreateDate=request("FeedBackDate")
''生成SQL语句
	sql="Insert into FeedBack(FeedBackTopic,FeedBackProduct,FeedBackClientID,FeedBackSort,FeedBackDate,FeedBackTouchmanID,FeedBackOver,FeedBackOverDate,Feedbackdetail,FeedBackResult,FeedBackOpenFlag,FeedBackCreatorID,FeedBackCreateDate) "
    sql=sql&"  values( '"&FeedBackTopic&"','"&FeedBackProduct&"',"&FeedBackClientID&",'"&FeedBackSort&"','"&FeedBackDate&"',"&FeedBackTouchmanID&","&FeedBackOver&",'"&FeedBackOverDate&"','"&Feedbackdetail&"','"&FeedBackResult&"',"&FeedBackOpenFlag&","&FeedBackCreatorID&",'"&FeedBackCreateDate&"') "
''执行写入数据库
	conn.execute sql
''提示用户添加成功
%>
<script language="VBScript">
			msgbox "添加成功！！"	  
			window.location="service.asp"
</script>  
<%
end if
%>


<TABLE  width="751" border=0 align=center cellPadding=0 cellSpacing=0>

  <TBODY>
    <TR> 
      <TD  height="24" valign="top"   bgcolor="#566CDB"  ><img src="../images/DispStation_H.gif" width="11" height="24">服务反馈信息 
        - 
<% if editflag=1 then 
           response.Write("修改")
	   else
	       response.Write("新建")
	   end if
%>
		</TD>
      <TD align="right" valign="middle" bgcolor="#DDDDDD" >
        &nbsp;&nbsp; 
<% if editflag=1 then %>
		<input name="editButton" type="button" class="button_all" value="修改" onClick="editcheckinfo()">
		&nbsp;&nbsp; <input name="delButton" type="button" class="button_all" value="删除" onClick="del()">
<% else%>
		<input name="SaveButton" type="button" class="button_all" value="保存" onClick="checkinfo()"> 
<% end if%>		
		&nbsp;&nbsp; <input  onclick="javascript:location.href='servicelist.asp';"  name="ListButton" type="button" class="button_with" width="60" value="服务反馈列表"> 
        &nbsp;&nbsp; <input  onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all"  value="返回"> 
	   </TD>
    </TR>

  <TR> 
    <TD height="16" colspan="2" valign="top" width="100%">&nbsp;</TD>
  </TR>
  </Tbody>
 </table>
 <form name="FeedBackmain" method="post">
12

service.asp - 源码说明

本页面展示了「Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel」中的 service.asp 源码文件，采用 ASP 编程语言编写，共 470 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与模块相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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