<script LANGUAGE="vbscript">
<!--
sub doDel()
if msgbox("确认要删除所选的信息吗?",vbQuestion+vbyesno,"删除信息")=vbno then exit sub
Dim StrID,m
StrID=""
for each m in form1.elements
if m.type="checkbox" then
if m.checked then
if StrID = "" then
StrID= m.value
else
StrID=StrID & "," & m.value
end if
end if
END IF
next
IF StrID<>"" THEN
//form1.id.value=StrID
form1.action="jsy_del.asp?jsyxh="+ StrID
form1.submit()
else
msgbox "您没有选择任何单据！" ,vbExclamation,"提示"
exit sub
END IF
end sub
-->
</script>
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../data/connect.asp" -->
<!-- #INCLUDE FILE="../Share/pubfunction.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim sJsyxh
sJsyxh = ""
sJsyxh = Request("jsyxh")
Response.Write sClxh
set rs = server.CreateObject("adodb.recordset")
sql = "delete from OA_CLJSY where jsyxh in ( "&sJsyxh&")"
rs.Open sql,conn,1,3
%>
<script language=vbscript>
location.href = "../shebei/jsy_list.asp?"
</script>
</BODY>
</HTML>
4583
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
