|
Code Samples -- JScript
Example #9 - TEXT (CLOb/LongChar) Fields Reading
<%@ Language=JScript %>
<%
var oConn = Server.CreateObject("OpenX2.Connection.1")
var oCommand = Server.CreateObject("OpenX2.Command")
var sResult = "";
var bError = false;
var sSetTextSize = "SET TEXTSIZE ";
var sRetrieveSQL = "SELECT publishers.pub_name, publishers.city, publishers.state, publishers.country, pub_info.pub_id, pub_info.pr_info FROM pub_info, publishers WHERE ( pub_info.pub_id = publishers.pub_id ) ORDER BY publishers.pub_name";
try {
var i = 0;
oConn.Connect("ms_ox1");
oCommand.Connection = oConn;
oConn.autoCommit = true;
oCommand.CommandText = sSetTextSize + "12000";
oCommand.Execute();
oCommand.CommandText = sRetrieveSQL;
oCommand.Execute();
while(oCommand.MoveNext()) {
sResult += "<tr>";
sResult += "<td style=\"font-size: 10pt; cursor: hand;\" onClick=\"ShowDesc(row" + oCommand.FieldValueAsString(5) + ")\"><b>Show/Hide Info</b></td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(1) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(2) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(3) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(4) + " </td>";
sResult += "<td style=\"font-size: 10pt;\"><img src=\"ox2imagejs.asp?pub_id=" + oCommand.FieldValue(5) + "\" border=\"0\"></td>";
sResult += "</tr>";
sResult += "<tr id=\"row" + oCommand.FieldValueAsString(5) + "\" class=\"hiddentr\">";
sResult += "<td colspan=\"6\">" + oCommand.FieldValueAsString(6) + " </td>";
sResult += "</tr>";
i++;
}
oCommand.CommandText = sSetTextSize + "0";
oCommand.Execute();
}
catch(e) {
bError = true;
if(oCommand.ErrorCode != 0)
sResult = "OpenX2 Command Error: " + oCommand.ErrorInfo + ". Error #" + oCommand.ErrorCode + " (" + oCommand.ErrorCodeEx + ")<br />";
else
if(oConn.ErrorCode != 0)
sResult += "OpenX2 Connection Error: " + oConn.ErrorInfo + ". Error #" + oConn.ErrorCode + " (" + oConn.ErrorCodeEx + ")<br />";
throw e;
sResult += "ASP Error: #" + e.number + ". " + e.description + "<br />";
}
%>
<html>
<head><title>OpenX2 Test #10 - TEXT (CLOb/LongChar) Fields Reading </title>
<STYLE TYPE="text/css">
tr.visibletr { font-size: 8pt; visibility: visible; position: static; }
tr.hiddentr { font-size: 8pt; visibility: hidden; position: absolute; }
</STYLE>
<script type="text/javascript" language="JavaScript">
<!--
function ShowDesc(theTR)
{
if(theTR) {
if(theTR.className == "visibletr")
theTR.className = "hiddentr";
else
theTR.className = "visibletr";
}
}
-->
</script>
</head>
<body>
<table border="1">
<tr>
<td><b>Info</b></td>
<td><b>Name</b></td>
<td><b>City</b></td>
<td><b>State</b></td>
<td><b>Country</b></td>
<td><b>Logo</b></td>
</tr>
<%=sResult%>
</table>
</body>
</html>
ASP file to retrieve image from the database (OX2ImageJS.asp)
<%@ Language=JScript %>
<%
var oConn = Server.CreateObject("OpenX2.Connection.1")
var oCommand = Server.CreateObject("OpenX2.Command")
var sResult = "";
var bError = false;
var pub_id;
pub_id = Request("pub_id");
var sSetTextSize = "SET TEXTSIZE ";
var sRetrieveSQL = "SELECT pub_info.logo FROM pub_info WHERE pub_info.pub_id = '" + pub_id + "'";
try {
oConn.Connect("ms_ox1");
oCommand.Connection = oConn;
oConn.autoCommit = true;
oCommand.CommandText = sSetTextSize + "32768";
oCommand.Execute();
oCommand.CommandText = sRetrieveSQL;
oCommand.Execute();
if(!oCommand.isEmpty) {
Response.Clear();
Response.ContentType = "image/gif";
Response.BinaryWrite(oCommand.FieldValueAsBinary(1));
}
oCommand.CommandText = sSetTextSize + "0";
oCommand.Execute();
}
catch(e) {
bError = true;
if(oCommand.ErrorCode != 0)
sResult = "OpenX2 Command Error: " + oCommand.ErrorInfo + ". Error #" + oCommand.ErrorCode + " (" + oCommand.ErrorCodeEx + ")<br />";
else
if(oConn.ErrorCode != 0)
sResult += "OpenX2 Connection Error: " + oConn.ErrorInfo + ". Error #" + oConn.ErrorCode + " (" + oConn.ErrorCodeEx + ")<br />";
throw e;
sResult += "ASP Error: #" + e.number + ". " + e.description + "<br />";
}
%>
Example #10 - TEXT (CLOb/LongChar) Fields Writing
<%@ Language=JScript %>
<%
var oConn = Server.CreateObject("OpenX2.Connection.1")
var oCommand = Server.CreateObject("OpenX2.Command")
var sResult = "";
var bError = false;
var bMakeUpdate = ( Request.Form("id").Count > 0 ); // && ( Request.Form("textField").Count = 1);
var sRetrieveSQL = "SELECT publishers.pub_name, publishers.city, publishers.state, publishers.country, pub_info.pub_id, pub_info.pr_info FROM pub_info, publishers WHERE ( pub_info.pub_id = publishers.pub_id ) ORDER BY publishers.pub_name";
var sUpdateSQL = "UPDATE pub_info SET pr_info = :pr_info WHERE pub_id = :id";
try {
oConn.Connect("ms_ox1");
oCommand.Connection = oConn;
oConn.autoCommit = true;
if(bMakeUpdate) {
oCommand.CommandText = sUpdateSQL;
oCommand.ParamValueAsString("pr_info") = new String(Request.Form("textField"));
oCommand.ParamValueAsString("id") = new String(Request.Form("id"));
oCommand.Execute();
}
oCommand.CommandText = sRetrieveSQL;
oCommand.Execute();
while(oCommand.MoveNext()) {
sResult += "<form action=\"OX2test11.asp\" method=\"post\">";
sResult += "<tr>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(1) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(2) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(3) + " </td>";
sResult += "<td style=\"font-size: 10pt;\">" + oCommand.FieldValueAsString(4) + " </td>";
sResult += "</tr>";
sResult += "<tr>";
sResult += "<td colspan=\"4\"><textarea cols=\"77\" rows=\"7\" name=\"textField\">" + oCommand.FieldValueAsString(6) + "</textarea></td>";
sResult += "</tr>";
sResult += "<tr>";
sResult += "<td align=\"center\"colspan=\"4\"><input type=\"submit\" value=\"Update Info\"><input type=\"hidden\" name=\"id\" value=\"" + oCommand.FieldValueAsString(5) + "\"><hr></td>";
sResult += "</tr>";
sResult += "</form>";
}
}
catch(e) {
bError = true;
if(oCommand.ErrorCode != 0)
sResult = "OpenX2 Command Error: " + oCommand.ErrorInfo + ". Error #" + oCommand.ErrorCode + " (" + oCommand.ErrorCodeEx + ")<br />";
else
if(oConn.ErrorCode != 0)
sResult += "OpenX2 Connection Error: " + oConn.ErrorInfo + ". Error #" + oConn.ErrorCode + " (" + oConn.ErrorCodeEx + ")<br />";
sResult += "ASP Error: #" + e.number + ". " + e.description + "<br />";
}
%>
<html>
<head><title>OpenX2 Test #11 - TEXT (CLOb/LongChar) Fields Writing </title></head>
<body>
<table border="1">
<tr>
<td><b>Name</b></td>
<td><b>City</b></td>
<td><b>State</b></td>
<td><b>Country</b></td>
</tr>
<%=sResult%>
</table>
</body>
</html>
© 2001 www.openx.ca
|