📄 installer.asp
字号:
<%
dim xml, surveyFile, xsl,xmlHeader, xmlHeaderLen,str, dateNode, myDate, expiryTime, currentDate, datesDiff, savingStatus, surveyCode, adminCode, surveyId, nowDay, currentLanguage
on error resume next
if Err.number<>0 then
response.Write "survey loading failed, try again"
end if
str=""
surveyFile = "surveyInfo.xml"
savingStatus =""
savingStatus = Request.Cookies("unFinishedSurvey")
currentLanguage = request("language")
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load(Server.MapPath("../xmls") & "/" & surveyFile)
set dateNode =xml.getElementsByTagName("surveyID")
set mydate = dateNode.item(0)
surveyId = mydate.nodeTypedValue
set dateNode =xml.getElementsByTagName("expiryDate")
set mydate = dateNode.item(0)
expiryTime = mydate.nodeTypedValue
expiryTime=FormatDateTime(expiryTime, 2)
expiryTime = month(expiryTime) & "/" & day(expiryTime) & "/" & year(expiryTime)
datesDiff = DateDiff("d", date, expiryTime)
set dateNode =xml.getElementsByTagName("accessCode")
set mydate = dateNode.item(0)
accessCode = mydate.nodeTypedValue
set dateNode =xml.getElementsByTagName("superCode")
set mydate = dateNode.item(0)
adminCode = mydate.nodeTypedValue
if not session("password")= adminCode then
if not session("password")= accessCode then
response.Redirect("welcome.asp")
end if
end if
function makeSurvey()
if datesDiff < 0 then
response.Redirect("surveyExpiry.asp")
end if
'Load XSL
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
if request("language") = "e" then
session("language")="e"
xsl.load(Server.MapPath("../xsls") & "/toView_E.xsl")
end if
if request("language") = "f" then
session("language")="f"
xsl.load(Server.MapPath("../xsls") & "/toView_F.xsl")
end if
'Transform file
str=xml.transformNode(xsl)
set xml=nothing
set xsl= nothing
Response.Write(str)
end function
%>
<script type="text/javascript">
function collectInfo(){
var surveyID, newNode,currentSurvey, allInput, allSelect, allTextarea, xmlObj, num,i;
xmlObj = createXMLDom();
surveyID = document.getElementById("surveyID");
allInput = document.getElementsByTagName("input");
allTextarea = document.getElementsByTagName("Textarea");
allSelect = document.getElementsByTagName("select");
surveyID = document.getElementById("surveyID");
newNode = xmlObj.createNode(1, "surveyID", "");
newNode.appendChild(xmlObj.createTextNode(surveyID));
num = allInput.length;
for(i = 0; i<num; i++ ){
if (allInput[i].type!="button")
{ var newNode = loadAnswer(xmlObj, allInput[i]);
if (newNode!=null)
{ xmlObj.documentElement.appendChild(newNode);}
}
}
num = allTextarea.length;
for(i = 0; i<num; i++ ){
newNode = loadAnswer(xmlObj, allTextarea[i]);
if (newNode!=null)
{ xmlObj.documentElement.appendChild(newNode); }
}
num = allSelect.length;
for(i = 0; i<num; i++ ){
newNode = loadAnswer(xmlObj, allSelect[i]);
if (newNode!=null)
{ xmlObj.documentElement.appendChild(newNode); }
}
return xmlObj;
}
function recordSurvey(xmlObj) {
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","processData.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
alert(process.responseText);
}
}
process.send(xmlObj) ;
}
function languageTransfer() {
var xmlObj = collectInfo()
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","saveData.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
}
}
process.send(xmlObj) ;
var pageLanguage = '<%=currentLanguage%>';
if (pageLanguage == "e")
{location.href = "installer.asp?language=f"; }
else if (pageLanguage == "f")
{location.href = "installer.asp?language=e"; }
}
function createXMLDom(){
var xmlDomObj = new ActiveXObject("Microsoft.XMLDOM");
xmlDomObj.async="false";
xmlDomObj.loadXML("<?xml version='1.0' encoding='iso-8859-1'?><survey/>");
return xmlDomObj;
}
function loadAnswer(xmlDomObj, answer){
var question = xmlDomObj.createNode(1, "answer", "");
question.setAttribute("id", answer.getAttribute("id"));
question.setAttribute('type',answer.getAttribute("type"));
if( answer.type == "checkbox")
{question.appendChild(xmlDomObj.createTextNode(answer.checked));return question; }
else if(answer.type == "radio")
{question.appendChild(xmlDomObj.createTextNode(answer.checked));return question; }
else if(answer.tagName == "SELECT" || answer.tagName == "select" )
{ question.appendChild(xmlDomObj.createTextNode(answer.selectedIndex));return question; }
else if(answer.type=="textarea")
{question.appendChild(xmlDomObj.createTextNode(answer.value));return question;}
else if(answer.type=="text")
{question.appendChild(xmlDomObj.createTextNode(answer.value));return question;}
else if(answer.tagName == "Textarea")
{question.appendChild(xmlDomObj.createTextNode(answer.innerHTML));return question;}
else {return null; }
}
function timeout_save(xmlObj){
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","saveData.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
}
}
process.send(xmlObj) ;
process.close;
}
function save(xmlObj){
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","saveData.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
alert(process.responseText);
}
}
process.send(xmlObj) ;
process.close;
}
function setCookie()
{
var exdate=new Date();
exdate.setDate(exdate.getDate()+30);
return exdate.toGMTString();
}
function autoSaveInTemp(){
var currentXMLFile=collectInfo();
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","autoSaveInTemp.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
}
}
process.send(currentXMLFile) ;
process.close;
setTimeout("window.close()", 3000);
}
function limitText(currentTextArea){
if (currentTextArea.value.length > 254) { alert("At most 255 characters are allowed");
currentTextArea.value = currentTextArea.value.substring(0, 254);
}
}
function continueSurvey(savedFile){
var process = new ActiveXObject("Microsoft.XMLHTTP");
process.open("POST","pickupSavedSurvey.asp",true);
process.onreadystatechange = function () {if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
var xmlParser = createXMLDom();
xmlParser.async="false";
var str;
str ="";
str =str + process.responseText;
xmlParser.loadXML(str);
var nodeSet = xmlParser.getElementsByTagName("answer");
var num = nodeSet.length;
for (var i =0; i<num; i++){
var node = nodeSet.item(i);
var nodeContent = node.getAttribute("id");
var pageNode = document.getElementById(nodeContent);
pageNode.value = node.text;
if(pageNode.getAttribute("type")=="radio" && node.text=="-1")
{ pageNode.setAttribute("checked", "checked");}
if(pageNode.getAttribute("type")=="checkbox" && node.text=="-1")
{ pageNode.checked = true;}
if(pageNode.getAttribute("type").match("select"))
{ pageNode.selectedIndex=node.text; }
if(pageNode.getAttribute("type").match("Drop"))
{ pageNode.selectedIndex=node.text; }
}
}
}
process.send("") ;
process.close
}
function generatingReport(){
// var surveyIDCode = prompt("Please enter the survey ID before viewing the survey result:","");
// if (surveyIDCode != null) {
var process = new ActiveXObject("Microsoft.XMLHTTP");
var thisId = '<% = surveyId %>' ;
var xmlObj = createXMLDom();
var newNode = xmlObj.createNode(1, "surveyID", "");
newNode.appendChild(xmlObj.createTextNode(thisId));
xmlObj.documentElement.appendChild(newNode);
process.open("POST","viewSurveyResult.asp",false);
process.onreadystatechange = function () { if (process.readyState==4){
if (process.status!=200){
alert('HTTP error ' + process.status);
}
if(process.responseText.match(".asp"))
{window.open(process.responseText);}
else
{ alert(process.responseText); }
}
}
process.send(xmlObj);
process.close;
xmlObj.close;
// }
}
function getCookie(c_name){
if (document.cookie.length>0)
{
c_start=document.cookie.indexOf(c_name + "=");
if (c_start!=-1)
{
c_start=c_start + c_name.length+1;
c_end=document.cookie.indexOf(";",c_start);
if (c_end==-1) c_end=document.cookie.length;
return unescape(document.cookie.substring(c_start,c_end));
}
}
return "";
}
function viewResult(){
window.open("dynamicAnalysis.asp")
}
window.moveTo(0,0);
window.resizeTo(window.screen.availWidth,window.screen.availHeight);
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>survey</title>
<link rel="stylesheet" type="text/css" href="../include/dxCSS.css">
<link rel="stylesheet" type="text/css" href="../include/button.css"/>
<% if session("password") = accessCode then%>
<script src="../include/prototype.js" type="text/javascript"></script>
<script src="../include/idleState.js" type="text/javascript"></script>
<%end if%>
</head>
<body>
<% makeSurvey()%>
<script language="javascript" type="text/javascript">
var ifSaved = '<%=savingStatus%>' ;
if(ifSaved!="")
{ continueSurvey(ifSaved); }
var sessionCode = '<% = session("password")%>' ;
var accessString = '<% = surveyCode%>' ;
var adminString = '<% = adminCode%>' ;
if (sessionCode != adminString) {
document.getElementById("makingReport").style.visibility='hidden';
document.getElementById("viewingReport").style.visibility='hidden';
}
function changeBg(currentColor){
document.bgColor = currentColor;
}
function document.onkeydown() {
if (event.keyCode == 13) {
var btn = document.getElementById("button_E");
event.returnValue=false;
event.cancelBubble = true;
btn.click();
}
}
</script>
<table align="right"><tr>
<td><img src="../images/yellow.GIF" onClick="changeBg('#FFFFCC')" /></td>
<td><img src="../images/red.GIF" onClick="changeBg('#FF6666')" /></td>
<td><img src="../images/sky.GIF" onClick="changeBg('#33CCFF')" /></td>
<td><img src="../images/blue.GIF" onClick="changeBg('#3366FF')" /></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -