UC知道帮忙改一下谢谢。急！！！
来源：百度知道 编辑：UC知道 时间：2024/05/29 00:45:41
想请你帮个忙有时间吗
<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb"%>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!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=gb2312" />
<title>>>公司办公管理信息系统<<</title>
<script language="vb" runat="server">
sub cx_click(sender as object, e as eventargs)
if not page.ispostback then
dim
<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb"%>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!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=gb2312" />
<title>>>公司办公管理信息系统<<</title>
<script language="vb" runat="server">
sub cx_click(sender as object, e as eventargs)
if not page.ispostback then
dim
首先dropdownlist的每一个listitem的value应赋上值,这样容易取值进行判断.<asp:listitem value="bydate">日期</asp:listitem>......
<script language="vb" runat="server">
sub cx_click(sender as object, e as eventargs)
if not page.ispostback then
dim conn as oledbconnection
dim com as oledbcommand
dim rd as oledbdatareader
dim constr as string="Provider = Microsoft.Jet.OLEDB.4.0;data source=E:\sample\公司办公管理信息系统\gsbgglxt.mdb;"
dim SQL as string
conn = new oledbconnection(constr)
conn.open
if trim("BY_TEXT_CX").text<>"" then
dim tempvalue as string=dropdownlist1.selectedvalue
注意，在进行比较前，要先确定日期输入的是否格式正确，
if tempvalue="bydate" then
sql ="select * from khzldj where 日期='" & tempvalue & "'"
elseif tempvalue="byusername" then
sql="select * from khzldj where 用户名 = '" &