web通讯录（简易版）

index.html

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>web通讯录</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>


<FRAMESET ROWS="," COLS="100,600">
 <FRAME SRC="left.asp" NAME="left">
 <FRAME SRC="main.asp" NAME="main">
</FRAMESET>

</HTML>

left.asp

<%@language="vbscript" codepage="936"%>
<!--#include file=function/func.asp  -->
<link href="card.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="note.js">
</SCRIPT>
<A HREF="main.asp" target="main">manage_note</A><BR>
<A HREF="../../card/index.asp" target="main">card</A>

main.asp

<%@language="vbscript" codepage="950"%>
<!--#include file=function/func.asp  -->
<link href="card.css" rel="stylesheet" type="text/css">
<%
dim conn,rs,topnum
''---------------------------------------以下为设定显示记录数-----------------
t5=timer
%>
<!---------------------------------------主过程------------------------------>
<A HREF="manage_note.asp" >全屏幕查看数据</A>
<iFRAME id="mx" name="mx" align="left"  height="200" width="600" marginheight="0" src="manage_note.asp"></iFRAME>

<div  id="tablemx">
<div id="tablemxleft">
<FORM id="mainform" target="mx"  name="mainform" METHOD=POST ACTION="manage_note.asp" onsubmit="javascript:checkmainform()">
<INPUT TYPE="hidden" name="custom_id">
<TABLE>
<TR><TD>Custom_M001ID:</TD><TD><INPUT TYPE="text" NAME=Custom_M001ID></TD></TR>
<TR><TD>Custom_Name:</TD><TD><INPUT TYPE=text NAME=c_name></TD></TR>
<TR><TD>office_tel:</TD><TD><INPUT TYPE=text NAME=office_tel></TD></TR>
<TR><TD>acm_tel:</TD><TD><INPUT TYPE=text NAME=acm_tel></TD></TR>
<TR><TD>fax:</TD><TD><INPUT TYPE=text NAME=fax></TD></TR>
<TR><TD>mobile_tel:</TD><TD><INPUT TYPE=text NAME=mobile_tel></TD></TR>
<TR><TD>office_address:</TD><TD><INPUT TYPE=text NAME=office_address></TD></TR>
<TR><TD><INPUT TYPE=reset value=reset></TD><TD><INPUT TYPE=submit value=add name=action> <INPUT TYPE=submit value=delete name=action> <INPUT TYPE=submit value=update name=action></TD></TR>
</TABLE>
</FORM>
</div>
<div id="msg">
<!---------------------------------------以下为输出查询表单----------------------->
<div id="search">
<FORM METHOD=POST ACTION=search.asp>
<TABLE style="font:9pt">
<TR><TD>ENTER KEY WORDS:
<INPUT TYPE=text NAME=key>
<INPUT TYPE=submit value=search>
</TD></TR>
</FORM>
</TABLE>
</div>
<PRE id="info"></PRE>
<PRE id="msg"></PRE>
<TEXTAREA NAME="maindata" ROWS="4" COLS="50"></TEXTAREA>
</div>
</div>
<%
 
response.write "execute costs ["&timer-t5&"]"

if dnum="yes" then

 response.cookies("defaultnum")=topnum

end if

%>

manage_note.asp

<%@language="vbscript" codepage="936"%>
<!--#include file=function/func.asp  -->
<link href="card.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="function/note.js"></SCRIPT>
<%
dim conn,rs,t5
dim xmlhttp
set xmlhttp = CreateObject("Microsoft.XMLHTTP")
''---------------------------------------以下为设定执行时间开始-----------------
'application("supply")=false
t5=timer


'---------------------------------------主过程------------------------------
'response.write newd
'response.end

call openhpdb

select case request("action")
 case "add"
  call edit_note("add")
 case "delete"
  call del_note
 case "update"
  call edit_note("update")
 case else
  call show
end select

sub edit_note(action)
  
 custom_id=iif(request("custom_id")<>"",request("custom_id"),0)

 sql="select top 1 * from custom where custom_id="&custom_id
 'response.write sql
 'response.end
 rs.open sql,conn,1,3
 
 column="c_name,office_tel,acm_tel,mobile_tel,office_address,home_address,custom_type"
 
 updcolumn=split(column,",")
 
 IF action="add" then
 
  call update(rs,updcolumn,true) 'true表示新增，false表示更新

 ELSE IF action="update" then

   call update(rs,updcolumn,false)

   END IF

 END IF
 
 rs.close

 call show()

end sub


sub show()
 
 rs.open "select  * from custom order by create_time",conn,1,1

 call outinfo(rs,10)

 call closedb

end sub

sub update(rst,columnarray,addnew)

 if addnew then
  
  rst.addnew

 end if
 
 for i=0 to ubound(columnarray)
  
  rst(columnarray(i))=request(columnarray(i))

 next

 rst.update

end sub

sub del_note

 custom_id=request("custom_id")

 sql="delete  from custom where custom_id="&custom_id

 response.write sql&"Execute success"

 conn.execute (sql)

 call show()

 response.end

end sub
%>


<!--

-->

note.js

function sltall()
{
 var e=fm2.custom_id;
 if (document.fm2.allselect.checked)
 {  
  for( var i = 0; i < e.length; i++ )
  e[i].checked=true;
 }
 else
 {
  for( var i = 0; i < e.length; i++ )
  e[i].checked=false;
 }
 
}


function checkmainform()
{
 alert("sss");
 if (document.card.em_no.value.length==4)
 {
  document.card.action.value="getvalue"
  card.submit();
  //alert("");
  //无刷新取数据，怎么弄
 }
}

function search_curr()
{

}

function xmlhttp_get(formdata,url)
{
 var nl=document.fm2.custom_id.length;
 
 for (k=0;k<nl ;k++ )
 { 
 if (document.fm2.custom_id[k].checked)
 {
  //只有选中才取数据；
 
 //---------------------------------主程式开始------------------------

  var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");

  xmlhttp.open("POST",url,false);

  xmlhttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded");

  xmlhttp.send(formdata);

  var strXML;

  strXML="";

  strXML=xmlhttp.ResponseText;

  //alert(strXML);

  
  window.parent.maindata.value=strXML;

 var xmlDoc=new ActiveXObject("MSXML.DOMDocument");

 xmlDoc.async=false;


 if(xmlDoc.loadXML(strXML))
 
 {

  //var nod = xmlDoc.selectNodes("//note");
  
  var note=xmlDoc.getElementsByTagName("note");
  
   for(var i=0;i<note.item(0).childNodes.length;i++)
   {
                               //alert(nod[i].getAttributes("num"));
    var formMember=note.item(0).childNodes(i).nodeName;
    
    for(p=0;p<window.parent.mainform.length;p++)
    {
    
    if (window.parent.mainform.elements(p).name==formMember)
    {
      window.parent.mainform.elements(p).value=note.item(0).childNodes(i).text;
    
    }
    }
    
      }
   

 }
   window.parent.info.innerHTML="Execute End";

 //set xmlDoc=nothing;
 
 //xmlhttp.close;
 xmlhttp="";
 xmlDoc="";
  
  //----------------------------------------主程式结束---------------------
  //取数据后，从循环中跳出；
  break;
 }//if 闭合
 }//for 闭合

}

card.css

body{text-align:center;font:12px #0000ff bold;}
table{text-align:left;font:18px;
font-weight:bold;color:#0000ff;
font-family:穝灿砰,Ш蔨,arial;
}
#search{float:left;font:9pt;margin:0px;padding:0px;background:#dddddd;}
#tablemx{
/*float:left;*/
CLEAR: both;
text-align:left;font:9pt;
color:#000000;
font-family:穝灿砰,Ш蔨,arial;
}
#tablemxleft{float:left;}
#msg
{
float:right;
}
#tablemx td{text-align:left;font:9pt;
background:#eeeeee;
font-family:穝灿砰,Ш蔨,arial;
}
a:link {color:#0000ff;text-decoration:none;}
A:visited { COLOR:#000080; TEXT-DECORATION: none;}
.tdbz{text-align:center;font:20px;font-weight:bold;
color:#0000ff;font-family:穝灿砰,Ш蔨,arial;
}
.tdzy{
text-align:left;font:12px;color:#000000;
font-family:穝灿砰,Ш蔨,arial;
padding:0px 0px 0px 2px;
width:342;
height:191;
background:white;
border:1px black solid;
}
.tdzy h2{text-align:center;font:12px;
color:#000000;padding:5px;margin:0px;background:#ffffff;}
.tdzy ol
{
text-align:left;font:12px;letter-spacing: 3px
color:#000000;padding:5px 2px 3px 40px;
margin:0px;background:#ffffff;
}
.tdzy ul
{
text-align:left;font:12px;
color:#000000;padding:10px 2px 3px 40px;
margin:0px;background:#ffffff;
}
.left{
text-align:left;
width:345;
height:191;
background:white;
border:1px black solid;
padding-bottom:0px;
}
.maintd{
text-align:left;
width:345;
height:161;
background:#ffffff;
padding:0px;
}
#ruler{
text-align:center;
background:#dddddd;
padding:0px;
margin:0px;
width:30px;
border:0px solid #0000ff;
font:7pt;
}
#ruler td{
text-align:center;
background:#000000;
padding:0px 0px 0px 0px;
border-bottom:0px solid #ff0000;
margin:0px;
height:1px ;
}
#ruler .td2{
text-align:center;
background:#ffffff;
padding:0px;
border-right:1px solid #000000;
margin:0px;
height:19px ;
}

func.asp

<%
function xmlhttp_submit(form_object,url)

  for i = 0 to  form_object.elements.length-1
  set elem = form_object.elements(i)
         form_value=form_value & URLEncoding(elem.name) & "=" & URLEncoding(elem.value) &"&"
  Next

  'set xmlhttp = CreateObject("Microsoft.XMLHTTP")
  xmlhttp.open "POST",url,false
  xmlhttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"

  xmlhttp.send(form_value)

end function

Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            strReturn = strReturn & ThisChr
        Else
            innerCode = Asc(ThisChr)
            If innerCode < 0 Then
                innerCode = innerCode + &H10000
            End If
            Hight8 = (innerCode  And &HFF00)\ &HFF
            Low8 = innerCode And &HFF
            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
        End If
    Next
    URLEncoding = strReturn
End Function


Public Sub openhpdb()

 strconn = "Driver={SQL Server};Description=sqldemo;SERVER=localhost;" _
 &"UID=sa;Password=;DATABASE=fschina"
 
 'db=server.mappath("card.mdb")
 'strconn="provider=microsoft.jet.oledb.4.0;user id=;password=;data source="&db

 set conn = server.createobject("adodb.connection")
 
 conn.open strconn
 
 set rs=server.createobject("adodb.recordset")


End Sub


Public Sub Closedb
 set rs=nothing
 conn.close
 set conn=nothing
End Sub

FUNCTION IIF(cond,expr1,expr2)

 if cond then

  iif = expr1

 else

  iif = expr2

 end if

END FUNCTION

sub outinfo(rst,num)

 if num="" then

  response.write num&"topnum is null"

 else

  allcount=cint(num)

 end if

 response.write "<TABLE id=tablemx><FORM name=fm2 METHOD=POST ACTION=manage.asp>"
    
  response.write "<TR><TD>all<INPUT TYPE=checkbox NAME=""allselect"" onclick=""javascript:sltall()""></TD>"
  
  for k=0 to 1

   response.write "<TD>"&rst(k).name&"</TD>"

  next

  response.write "<TD>详细信息</TD><TD>联系方式</TD><TD>加入时间</TD>"

  response.write "</TR>"
 
 
 for i=0 to rst.recordcount-1

  response.write "<TR><TD>"&i&"<INPUT TYPE=checkbox NAME=custom_id value='"&rst("custom_id")&"' onclick=javascript:xmlhttp_get(""custom_id="&rst("custom_id")&""",""outresult.asp"")></TD>"

  for k=0 to 1

   response.write "<TD>"&rst(k).value&"</TD>"

  next

  rstvalue=""
  rstname=""

  for k=3 to rst.fields.count-2

   if rst(k).value<>"" then

    rstname=rstname&"["&rst(k).name&"]:<BR>"&vbcrlf
    rstvalue=rstvalue&"[----  "&rst(k).value&"---]<BR>"&vbcrlf

   end if

  next

   response.write "<TD>"&rstname&"</TD>"

   response.write "<TD>"&rstvalue&"</TD>"

   response.write "<TD>"&rst(k).value&"</TD>"

  response.write "</TR>"&vbcrlf

  rst.movenext

 next


 rst.movefirst


 response.write "</TABLE>Total records ["&application("rscount")&"]</FORM>"

end sub

%>

创建数据库脚本

CREATE TABLE [custom] (
 [custom_id] [int] IDENTITY (1, 1) NOT NULL ,
 [c_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
 [office_tel] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
 [acm_tel] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [fax] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [mobile_tel] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [linkman] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,
 [office_address] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
 [home_address] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
 [custom_type] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,
 [vip] [bit] NULL ,
 [create_time] [datetime] NOT NULL CONSTRAINT [DF_custom_create_time] DEFAULT (getdate()),
 CONSTRAINT [PK_custom] PRIMARY KEY  CLUSTERED
 (
  [custom_id]
 )  ON [PRIMARY]
) ON [PRIMARY]
GO


 

Posted on 2005-03-02 13:39  古代  阅读(1153)  评论(0)    收藏  举报