?? service.asp
字號:
<!--#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" >
<% if editflag=1 then %>
<input name="editButton" type="button" class="button_all" value="修改" onClick="editcheckinfo()">
<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%>
<input onclick="javascript:location.href='servicelist.asp';" name="ListButton" type="button" class="button_with" width="60" value="服務反饋列表">
<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%"> </TD>
</TR>
</Tbody>
</table>
<form name="FeedBackmain" method="post">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -