0

我目前正在创建一个带有 Web 前端的新数据库。该数据库的关键功能之一是搜索和返回结果的能力。我已经设置了数据库并用信息填充了所有表格。我已经创建了所有所需信息的视图（按照我工作的公司的指示）。我已经将页面设置为我希望它的外观，这里是代码：

<!-- #include file="inc.head.asp" -->
<html>

<head>
</head>

<body>
<h1><i>Find User by Name</i></h1>
<div id="displayBox" style="border: 3px solid #9C9595; height: 500px; width: 425px" class="blackBox">

<h2> Search for User </h2>

<form name="Enter New Model" method="Post" action="">

<table>
<tr><td><h3>Name: </td></h3>
<td><input type="text" name="Model" size="50"></td></tr>
<tr><td><h3>Section: </td></h3>
<td><input type="text" name="NextUpgrade" size="50"></td></tr>
<tr><td><h3>Directorate: </td></h3>
<td><input type="text" name="Stock" size="50"></td></tr>
</table>
&nbsp;      
<table>
<textarea name="UserHistory" cols="50" rows="10"></textarea></tr>
</table>

<input type="submit" name="Submit" value="Search">
</body>
<br>
<br>
<h3><a href="page.index.asp">Return Home</a></h3>
</div>
</body>

</html>

所以我希望能够在 textarea 中显示结果。目前我只会使用姓氏进行搜索，但还有其他搜索要做，但是一旦我完成了这个搜索，我就可以为其他人调整它。您能给我的任何帮助将不胜感激。

提前致谢！

4

1 回答 1

0

您必须根据数据库连接的类型自己弄清楚一些事情，但基本情况是这样的（未经测试）：

<%
    Dim strUserHistory: strUserHistory = ""
    Dim strModel : Trim(request.form("Model"))
    Dim strNextUpgrade : Trim(request.form("NextUpgrade"))
    Dim strStock : Trim(request.form("Stock"))

    If strModel<>"" OR strNextUpgrade<>"" OR strStock<>"" Then
        Dim strQuery: strQuery = "SELECT Username FROM Users where Model= """ & strModel & """ OR NextUpgrade= """ & strNextUpgrade & """ OR Stock= """ & strStock & """

        Dim objConn: Set objConn = Server.CreateObject("ADODB.Connection")
        Dim DSN: DSN="Driver={SQL Server};Server=DATABASEIP;Database=DATABASENAME;UID=USERNAME;PWD=PASSWORD"
        objConn.Open(DSN)

        Dim objRS: Set objRS = objConn.Execute(strSQL)

        If objRS.EOF Then
             strUserHistory = "No Users found"
        Else
            Do While Not objRS.EOF
                strUserHistory = strUserHistory & objRS.Fields("Username").value & "\n"
                objRS.MoveNext()
            Loop
        End If
    End If
 %>

将其放在页面顶部（或从中创建一个函数）并更新您的 HTML 表单字段，例如：

<input type="text" name="Model" size="50" value="<%=strModel%>">
<input type="text" name="NextUpgrade" size="50" value="<%=strNextUpgrade %>">
<input type="text" name="Stock" size="50" value="<%=strStock%>">
<textarea name="UserHistory" cols="50" rows="10"><%=strUserHistory %></textarea>

有点警告，如果你把它暴露给邪恶的互联网，你将不得不照顾 SQL 注入等。关于这个的一个很好的Stackoverflow 问题，显示了各种预防方法。

但是，这应该让你开始。

于 2013-02-06T10:00:04.040 回答