📄 vacationexcel.asp
字号:
<%@ Language=VBScript %>
<%
'变量声明
Dim con ' ADODB链接对象
Dim rst ' ADODB记录集对象
Dim strCon '存储Excel数据库连接字符串的变量
Dim strSQL ' 存储执行插入的SQL查询字符串的变量
Dim name '存储员工姓名的变量
Dim phone ' 存储员工电话的变量
dim address '存储员工休假地址的变量
Dim key ' For Each循环里的迭代（虚拟变量）
Dim GoAhead '指明是否继续的标志
Dim myStr '存储显示在右手边表格里消息的变量
' ADODB 常量
'---- CursorTypeEnum 指定 Recordset 对象中使用的游标类型 ----
'使用键集游标。尽管从您的 Recordset 不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，它和动态游标相似。其他用户所作的数据更改依然可见。
Const adOpenKeyset = 1
'---- LockTypeEnum 指定锁定类型 ----
'当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
Const adLockPessimistic = 2
On Error Resume Next
name=Request("txtEmployeeName")
phone=Request("txtEmployeePhone")
address=Request("txtEmployeeAddress")
For Each key In Request.Form 'Line 30
If Request.Form(key)= "" Then
If key = "txtEmployeeName" Then
Response.Write "<FONT Color = 'Blue'>请输入员工姓名。</Font>"
Elseif key = "txtEmployeePhone" Then
Response.Write "<Font Color = 'Green'>请输入手机号码。</Font>"
Else
Response.Write "<FONT Color = 'Red'>请输入休假地点。</Font>"
End If
goAhead = False
Exit For
End If
GoAhead=True
Next
If goAhead = True Then
name=Replace(Request("txtEmployeeName"),"'","''")
If Len(name)<> 0 Or Len(phone)<>0 Or Len(address)<>0 Then
Set con = Server.CreateObject("ADODB.Connection")
strCon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strCon=strCon & server.MapPath("VacationASP.xls") & ";"
strCon=strCon & "Extended Properties=Excel 8.0"
If Request("cmdSubmit")="输入数据到Excel" Then
strSQL = "INSERT INTO [Sheet1$] (员工姓名, 手机号码, 休假地点)"
strSQL = strSQL & " VALUES ('" & name & "'"
strSQL = strSQL & ",'" & Phone & "'"
strSQL = strSQL & ",'" & address & "')"
End If 'Line 60
With con
.Open strCon
If Request("cmdDelete")<>"删除数据" Then
.Execute(strSQL)
Else
set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "Select * from [Sheet1$] Where 员工姓名 ='" & name & "'" & _
" AND 手机号码 ='" & phone & "'" & _
" AND 休假地点 ='" & address & "'", con, adOpenKeyset, _
adLockPessimistic
rst.fields(0).value = ""
rst.fields(1).value = ""
rst.fields(2).value = ""
rst.Update
rst.Close
End If
End With
If err.Number =3021 Then
Response.Write "不能删除输入的数据。" _
& "<BR>"
Response.Write "或者输入的员工姓名、手机号码或休假地点不正确。" & "<P>"
Else
name = ""
phone = ""
address = ""
set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "Select * from [Sheet1$]", con
Response.Write "<TABLE Border=""1"">" 'Line 90
For Each fld in rst.Fields
%>
<TH>
<% Response.Write fld.Name %>
</TH>
<%
Next
rst.MoveFirst
Do While Not rst.EOF
%>
<TR>
<% For Each fld in rst.Fields %>
<TD>
<% Response.Write fld.Value %>
</TD>
<% Next %>
</TR>
<% rst.MoveNext
Loop
%>
</TABLE>
<%
rst.Close
Set rst=Nothing
con.Close 'Line 120
Set con=Nothing
End If
End If
End If
%>
<HR>
<HTML>
<HEAD>
<TITLE>员工休假紧急联系信息系统</TITLE>
</HEAD>
<BODY>
<FORM Action="VacationExcel.asp" Method = "POST" Name="form1">
<P>
<TABLE BORDER="1" CELLPADDING="2" CELLSPACING="4">
<TR>
<TD>
<TABLE BORDER="1" CELLPADDING="2" CELLSPACING="3">
<TR>
<TD>员工姓名: </TD>
<TD>
<INPUT Type="text1" Name="txtEmployeeName" Value="<%=name%>" Size= "20">
</TD>
</TR>
<TR>
<TD>手机号码: </TD>
<TD>
<INPUT Type="text2" Name="txtEmployeePhone" Value="<%=phone %>" size= "20">
</TD>
</TR>
<TD>休假地点: </TD>
<TD>
<INPUT Type="text2" Name="txtEmployeeAddress" Value="<%=address %>" size= "20">
</TD>
</TR>
<INPUT Type="Submit" Name="cmdSubmit" Value="输入数据到Excel">
<INPUT Type="Submit" Name="cmdDelete" Value="删除数据">
</TABLE>
</TD>
<TD>
<%
'on error resume next 'Line 163
If err.number = 0 Then
If (Request("cmdSubmit")="输入数据到Excel" or _
Request("cmdDelete") = "删除数据") and Request.Form(key) <>"" Then
myStr = "下述数据被成功"
If Request("cmdSubmit")="输入数据到Excel" Then
Response.Write "<I><FONT Color = 'Green'>" & _
myStr & "添加：</I></FONT><HR>"
ElseIf Request("cmdDelete") = "删除数据" Then
Response.Write "<I><FONT Color = 'Green'>" & _
myStr & "删除:</I></FONT><HR>"
End If
End If
If Request("txtEmployeeName") <>"" or Request("txtEmployeePhone") <>"" or Request("txtEmployeeAddress") <>"" Then
Response.Write "员工姓名: <B>" & Request("txtEmployeeName") & "</B></P>"
Response.Write "手机号码: <B>" & Request("txtEmployeePhone") & "</B>"
Response.Write "休假地点: <B>" & Request("txtEmployeeAddress") & "</B>"
End If
End If
%>
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -