?? saedit.asp
字號:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<head>
<title>同行競爭對手信息管理</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<% dim Number,opFlag,title,Companylist,image
opFlag=request("opFlag")
if opFlag="" then opFlag="cmdAddNew"
Number=request("Number")
if Number="" then Number="0"
on error resume next
SET rs=Server.CreateObject("ADODB.RecordSet")
'讀取方案編號列表信息
rs.open "select DISTINCT Company from sameinfo",Session("conn"),1,1
Companylist=""
while not rs.eof
Companylist=Companylist & "<option value='" & rs("Company") & "'>" & rs("Company") & "</option>"
rs.movenext
wend
rs.close
'讀取數據庫記錄
if opFlag="cmdEdit" then
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
end if
'顯示文件標題
select case opFlag
case "cmdAddNew"
title="同行信息管理"
case "cmdEdit"
title="同行信息修改"
end select
image="../images/sainfo.gif"
%>
<style>
.css0{<%=vinputtext%>;border:none;}
</style>
<script language=JavaScript>
//讀取表內字符串信息
function ds(sstr)
{
var dstr="";
for (i=0;i<sstr.length;i++)
{ if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
}
return dstr;
}
//數據傳遞
function oninput()
{//用戶必填信息判斷
if(ds(document.submitinput.Company.value)=="")
{
alert("對不起,單位名稱不能為空!");
document.submitinput.Company.focus();
return false;
}
if(document.submitinput.Company.value.length>200)
{
alert("對不起,單位名稱太長,請重新輸入!");
document.submitinput.Company.focus();
return false;
}
if(ds(document.submitinput.Name.value)=="")
{
alert("對不起,產品對比不能為空!");
document.submitinput.Name.focus();
return false;
}
if(ds(document.submitinput.Introduction.value)=="")
{
alert("對不起,公司簡介不能為空!");
document.submitinput.Introduction.focus();
return false;
}
if(ds(document.submitinput.Example.value)=="")
{
alert("對不起,成功案例不能為空!");
document.submitinput.Example.focus();
return false;
};
if(document.submitinput.Smoney.value.length>15)
{
alert("對不起,注冊資金超過此公司實際情況,請重新輸入!");
document.submitinput.Smoney.focus();
return false;
}
if(document.submitinput.Mans.value.length>8)
{
alert("對不起,本公司沒有這么大的規模,請重新輸入!");
document.submitinput.Mans.focus();
return false;
}
if(document.submitinput.Sadd.value.length>255)
{
alert("對不起,公司地址長度不能超過255個字符,請重新輸入!");
document.submitinput.Sadd.focus();
return false;
}
if(document.submitinput.Phone.value.length>100)
{
alert("對不起,您輸入的電話號碼太多,請重新輸入!");
document.submitinput.Phone.focus();
return false;
}
if(document.submitinput.Fax.value.length>100)
{
alert("對不起,您輸入的傳真號碼太多,請重新輸入!");
document.submitinput.Fax.focus();
return false;
}
if(document.submitinput.Web.value.length>100)
{
alert("對不起,網址只能輸入一個!");
document.submitinput.Web.focus();
return false;
}
if(document.submitinput.Mail.value.length>255)
{
alert("對不起,電子郵件太多,請重新輸入!");
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -